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DIGITAL POP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


00010000 


780223 


SEQ 0001 
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CZTRAB . HED 14-DEC-77 12:19 SPECIAL TEST MACROS SEQ 0002 
* OF Y 
$- ARK He oe ae 
E. R READER 
A3. LOADING PROCEDURE 


THE DIAGNOSTIC IS IN ABSOLUTE BINARY FORMAT AND IS LOADED 
USING THE ABSOLUTE LOADER. 


AY. STARTING PROCEDURE 


LOAD ADDRESS 200 


| 
Re REQUIREMENTS 
A. PDP-11 COMPUTER 
B. MAGNETIC TAPE TRANSPORT CONTROL INTERFACE 
A. 

B. DEPRESS START 


DO1 
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TEST SELECTION: 


AFTER THE TYPEOUT “SELECT TEST NUMBER...” THE OPERATOR 
RHQULD RELECT. ‘ih. DESIRED TEST BY TYPING THE NUMBER FOLLOWED BY 


NOTE: THE NORMAL SWITCH SETTINGS ARE ALL SWITCHES DOWN 


SEQ 0003 


EOl 
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TRAB. HED 14-DEC- 


SPECIAL TEST MACROS 

Rb. TEST GROUP ABSTRACT 

PRETST: PRETEST 

coon rand“ES ZEPTCRBOU? SMESHE TEE, RESET FUNCTION. 11 15 PERFORMED 


NOTE: N TI N ERRORS ony — TEST GROUF IT IS RECOMMENDED 
Tha T Hue RESET SWITCH ON TREE FRANSE T BE DEPRESSED 
AND THE TEST GROUP BE RESTARTED AT THE He RESTART ADDRESS. 


NOTE: WHEN TEST O00 IS SEEN IN AN ERROR TYPEOUT, 
AN ERROR DURING AUTOSIZING HAS OCCURRED. 
TEST O IS NOT A TEST GROUP. 


TEST 1 

TEST ONE IS A MANUAL PRTERVEHT 10 TEST REQUIRING THE OPERATOR 
TO PERFORM THE TASKS AS DIRECTED BY THE TTY. IT IS SUGGESTED THAT 
EOT STICKER BE PLACED ABOUT SO FEET FROM THE LOAD POINT. 


TEST 2 
TEST GROUP TWO IS A LOGIC TEST GROUP WHICH CHECKS THE INTERFACE LOGIC. 
TEST 3 


TEST GROUP THREE IS A LOGIC TEST GROUP WHICH TESTS THE TRANSPORTS RESPONSE 
TO ALL TYPES OF COMMANDS. 


TEST 4 

TEST GROUP FOUR IS A RELIBALITY TEST GROUP WHICH CHECKS THE ABILITY OF 
THE TRANSPORT AND THE INTERFACE OVER AN EXTENDED PERIOD OF TIME. 
TEST 5 


TEST GROUP FIVE RE OF A COMPATIBILITY TEST. THIS 
TEST GROUP READS TAPES WAETTEN By TEST G GROUP 4. 


TEST 6 


TEST GROUP SIX IS A MAINTENANCE AID THIS ROUT INE ALL Ous TH THE OPERATOR 
OOP ON ANY SUBTEST BY ENTERING THE STARTING SAT 
THE LOOP CONTROL WILL KEEP THE SELECTED TEST GR ING IF L LOOP” IS _NOT 
og te TEST GROUP WILL EXECUTE ONCE AND ANOTHER STARTING ADDRESS MUST 


NOTE: IF ANY ERRORS DETECTED IN BOTH TEST GROUP 3 AND 4 HAVE THE SAME 
PASS NUMBER A DEFECTIVE TAPE SHOULD BE THE FIRST CONSIDERATION. 


* FO] 


SET RRB CHE aOGeRNSS aTTQEC"77 12: SEE ETAL Fest macros 


IF SWITCHES 83 AND #5 ARE D 
NO OPERATOR INTERVENTION IS REQUIRED 
IF SWITCHES #3 AND 


OWN THEN TESTS 2 THROUGH 4 ARE LOOPED ON WHERE 


#S ARE UP THEN ALL TESTS ARE PERFORMED. 


GOl 
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A7. ERRORS 


SR. WHEN THIS SHOR T IS TYPED THE 

FOLLOWS WILL GIVE AMPLE INFORMATION ABOUT THE ERROR. 

PASS XXX 

SUBTEST PC STATUS CORRECT ACTUAL LOCATION 
XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 


PC= XXXXXX i Sir WH 
STATUS= XXXXXX THis BE THe + s 
CORREC T=XXXXXX RecISTER alate 





ACTUAL= XXXXXX ( Ss T WAS I 

LOCATION AT THE 
LOCATION=XXXXXX (THIS IS THE LOC 
COMMENT (OPTIONAL ) 


HO1 
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CZTRAB. HED 14-DEC-77 12:19 INTRODUCTION TO TR79 DIAGNOSTIC 
1 
igs ;#AC-9426B-MC_/<377>/TR79F_ CHECKOUT TESTS 
ies s SCOPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
1 
191 sSTARTING PROCEDURE 
192 > LOAD 
193 OAD 
194 PRESS START S senna i oxoy 
13 ; rea Y “ware Tetnae To 6°74 Roicat THA AOYOSTSING HAS STARTED 
1 ipRoGRan aE igs a TR79 STATUS" TO INDICATE 
1 ig VECTOR BR LEVEL 
200 {TYPE “RUNNING” TO INDICATE THAT TESTING HAS STARTED 
OL :AT THE ENO OF 8 POSS ine PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
O :AND THEN 
20S ;SWITCH REGISTER OPTIONS 
? ’ 

207 100000 SW1S=100000 :=1,HALT ON ERROR 
209 040000 SW14=40000 $=1°LOOP_ON CURRENT TEST GROUP 
ay BH13= j1, INHIBIT ERROR TYPEOUT 
11 010000 12=1 ;=1) 
212 004000 Swi 
213 S5W10=2000 ;=1,ESCAPE TO NEXT TEST ON ON ERROR 
e184 991000 = 3=1,L00P WITH 
sie NOTES. .F FEE 4&5 LOOPS BACK TO BEGINING. 
217 0200 SWO7= 
218 000100 S5WO6=100 ;=1, INHIBIT AUTOSIZING 
219 000040 SWwOS=40 :=0; INHIBIT re? s 5 
aa 00020 SWOY= Pe * 

00010 WO3=1 =0, INHIBITS TEST 
ee : ive, NO RANUAL iN TERVEN T16K REQUIRED) 
eeu :=1, ENABLES TESTS 1 

4 wo2=4 :=1 T SEL 

sss feteleets ai it t=1’ eck oY bRScR BF E¢T SELECTED TEST 
228 000001 SwoO=1 :=1; SELECT DEVICE ADDRESS, VECTOR, ETC 


SaNeae 
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INTRODUCTION TO TR79 DIAGNOSTIC 


; SWITCH 


SWITCH 


; SWITCH 


; SWITCH 
# 
; 


; SWITCH 


I 
N 


#1S - WHEN SET, THE DIAGNOSTIC WILL 
ERROR IS DETECTED. THE LOCATION AT 
DETECTED WILL BE DISPLAYED IN T 


LIGHTS 
IF NOT SET THE DIAGNOSTIC WILL CONTINUE TESTING 
AS PER SWITCHE AND #10. 


- WHEN SET, ERROR REPORTS WILL NOT BE 
N AT ye Y WHEN “ghit ARE DETECTED. 
SET, ERROR REPORTS WILL BE PRINTED. 


re SShGES THAT MAY FOLLOW ERROR REPORTS 
NOT INHIBITED BY THIS SWITCH. 


- WHEN SET, IF AN ERROR IS DETECTED, THE 
BELL WILL RING. 

NOT SET, THE TTY BELL WILL NOT RING WHEN 
RROR 1s oe TECTED: 


#10 - IF THIS SUITCH IS SET WHEN AN ERROR IS 
DETECTED, AFTER THE E IS REPORTED, TESTING 
WILL CONTINUE, STARTING WITH THE NEXT TEST. 


IF SWITCH #8 IS SET, THIS SWITCH HAS NO EFFECT. 


IF SWITCH #8 IS NOT SET AND THIS SWITCH IS NOT 
SET, TESTING RESUMES AT THE POINT IN THE DIAGNOSTIC 


FOLLOWING THE LOCATION AT WHICH THE ERROR WAS DETECTED. 


9 - IF SET, THe 
O CONTINUE TES 


SET, WHEN AN ERROR IS 
RESUME AT THE BEGINNING OF 
RROR WAS DETECTED. (I.E. L 


#6 - WHEN SET, THIS SWITCH INH 


IBITS AUTOSIZING. 
WHEN CLEAR, THE DEVICE WILL AUTOSIZE. 


A ates USES THE CURRENT PARAMETERS 


SEQ 0008 
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28S 

286 s SMITCH #S - WHEN SET, TEST GROUP #5 WILL BE EXECUTED. 
WHEN CLEAR, TEST GROUP #5 WILL NOT BE EXECUTED. 

$3 ;SWITCH #3 - WHEN NO THE TEST REQUIRING MANUAL 

291 : INTERVENTION. Fest #1, WILL NOT BE EXECUTED. IF 

32 : SET, TEST #1 WILL BE EXECUTED. 

94 

eae ;SWITCH #2 - a SET usahe 9 AGNOSTIC WILL LOOP ON THE TEST 

36 : SELEC USED WITH SWITCH #1. 

53g 

299 ;SWITCH #1 - WHEN SET ats SWITCH ALLOWS THE 

300 ; OPERATOR TO SELE THE STARTING TEST, VIA A 

301 : DIALOG AT THE T 

305 

304 ;SWITCH #0 - WHEN SET, THIS SWITCH ALLOWS THE OPERATOR 

305 : TO SPECIFY THE DEVICE ADDRESSES AND VECTORS 

306 : IF THEY ARE DIFFERENT FROM THE STANDARD ONES 


KOl 
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CZTRAB.HED  14-DEC-77 12:19 GENERAL DEFINITIONS AND EQUIVALENCES 
307 
: ;REGISTER DEFINITIONS 
ll 3 
31 oo0000 RO=“0 ;GENERAL REGISTER 
15 000001 R1=% ;GENERAL REGISTER 
14 BOOS Re=? 5 RAL REG R 
1s R3=% H GISTER 
16 000004 R4=44 :GENERAL REGISTER 
re SOODDE axe OE eRe Re ER OINTER 
ig 000007 PC=% t PROGRAM COUNTER 
321 ;LOCATION EQUIVALENCES 
323 : 
324 1777 PS=177776 SSOR STATUS 
325 bai 200 STACK=1200 5 eFART Be PROCESEOR ot STACK 
367 j INSTRUCTION DEFINITIONS 
329 
330 005746 1SP=S746 _— s DE: PROCESSOR STACK 1 WORD 
331 005726 1SP=S726 S INCREMENT PROCESSOR STACK 1 WORD 
332 010046 H RO STACK 
333 012600 : s ROM STACK 
33¢ BSaece P fo OFORERENENT STACK THICE 
336 -EQUIV ERROR ;BASIC DEFINITION OF ERROR CALL 
338 ;BIT DEFINITIONS 
339 § meee enn nena n== 
i T15=1 
ie BTTHs4an09° 
3 020000 B1T13=20000 
344 ¢10000 BIT12=10000 
34S 004000 BIT 1=4000 
eS eLuciE 
ORE see 
350 000100 BITb=100 
351 000040 BITS=40 
352 000020 BIT4=20 
353 10 B113=10 
4 ITe=4 
- 355 oo0002 BITi=2 
358 000001 BITO=1 
358 ;PROCESSOR PRIORITY LEVELS 
359 | cone nase nareareswessenas 
3e¢ 000340 LEVEL7=340 
362 000300 LEVEL6=300 


ae eC; 





LOl 
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CZTRAB.HED  14-DEC-77 12:19 GENERAL DEFINITIONS AND EQUIVALENCES 
4 
36 000040 meee: 
368 oo0000 CEVELO= 
376 ;TR79 CONTROL AND STATUS REGISTER DEFINITIONS 
71 :(TRCR) BIT DEFINITIONS 


NN 
wr 


WWWWG) 


ms ; TAPE TEST EQUALS Scomeael 

76 SB0cb4 READ. =u q FORWARD. 
an Sh pf PREC EREY mow 

i 101 L 101 : 
382 001414 ILCOB = =1414 :3 
383 00001 ERA - 30 ‘ol FORWARD 
385 ILC = i FHS eve 

7 itéle it S EFINIT BIT 
Oe chaeeitt TR PSE OE 
Ef pts i RTE Bopper. 
33¢ 001436 OFLINE =1436 :3 TAKE UNIT OFF UNIT 
394 
aap 1£4Bae Tsk=  }Bdops ‘EFAUCT STATUS REGISTER AD se 
336 1Pdope TBae 164 : FAULT Bue. Le iia s 
399 178 TvA= 170 *DEFAULT TAPE VECTOR ADDRESS 
400 000172 TSA=—s«d'72 ‘DEFAULT TAPE STATUS ADDRESS 


lm e+ ee 








a 
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CZTRAB. HED 14-DEC-77 12:1 TRAPCATCHER FOR UNEXPECTED INTERUPTS SEQ oo1e | 
5 s AHAAAAELSLALLELELELLE LEASES LALARA ARAL LAA AAL AA RAAAALAA RA RAL RA LAREE 
: ; TRAPCATCHER FOR GAL INTE 


2 


ge TMEEN Aon $3.0,1 1Sistares ee 
COKE 


1 -casaaasuasauasauanansuezanarezansuanananananananansranazaaransvanas 


SSSG55088 3 





410 .=0 

4 ; ; STANDARD INTERRUPT VECTORS 

41 

ais ate ;POWER FAIL HANDLER 

41g 340 H L 7 

41 .EROR tBRROA HANDLER 

418 340 :SERVICE AT LEVEL sleoeaies weitinel 

420 = 340 rc i GENER CE A + NOL ER is ‘> 

4 -2 0 ;SAVE FOR ACT-11 OR 

455 0 RETURN RODRESS TP R ACT-11 OR XxXDP 
yey 0 j SAVE FOR AC 1-11 on 

4 ne SENDAD :FOR USE WITH Tet OR XXDP 

4 oe 0 ;ACT-11 PROGRAM CHARACTERISTICS 

Ay -=174 

430 DISPREG:0 ;SOFTWARE DISPLAY REGISTER FOR SMALL 11S 
4 WREG: 0 :SOWTARE SWITCH REGISTER FOR SMALL 115 
4 001510 oe IMP . START ;GO TO START OF PROGRAM 

435 

436 001000 .=1000 

a 001000 005377 O41SO1 O344SS MTITLE: .ASCIZ <377><12>/AC-9426B-MC /<377>/TR79F CHECKOUT TESTS/<377> 
4 001200 .=1200 

439 001200 177570 ISPLAY: 177570 

440 O0l202 177570 gir. 177870. 

4a [INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 

443 . 

444 001 1 TKCSR: TEL T YBOARD CONTROL REGISTER 
44s BS tSbe 1772 e8 TKDBR: i 2 ELEY YPE KEYBOARD TA BUFFER 

446 001210 177564 TPCSR: 177564 BL LEPRINTER BONTROL REGISTER 

447 OO0lele 177566 TPOBR: 177566 EPRINTER DATA BUFFER 


;PROGRAM CONTROL PARAMETERS 


NEXTS :BODRES SOF REXT TEST TO HE EXECUTED 


+ eSGAT: RURBER OF TTERST TOR CURRENT DATA TEST WILL BE EXECUTED 


ce 








NO1 
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C. . HED 132528297 i313" AM TERS, VARIABLES, AND TRAP CALLS. 
' LPCNT : 8 ; NUMBER OF TTEREATIONS COMPLETED 
' PASCNT: + NUMBE NBER oF pas d COMP CETED 
5 ERRCNT: 6 ; TOT’ R 
UC LSTERR: ;PC EI CALL 
461 OC SAVLIN: . ; PROGRAM’ PARAMETER 
we3 ;PROGRAM VARIABLES 
uee pape tataapa ait aes 48 
. D0 HOLD: 0 ;DEFAULT DELAY TIME FOR 11/70 PROCESSOR 
ae TRBASE : $BASE ADDRESS OF A GIVEN TR739 UNDER TEST 
ve REGIST: *DEVICE ADDRESS STORAGE LOCATION 
469 OC STAT: 0 :TR STATUS WORD STORAGE 
7B fa § 
We OC xc: 
4 00 XSR: 
‘eB cer 
W7e oC WRTFLG: O 
4 ae Loc: 0 
4 D0 CR: 21s ;TTY CARRIAGE RETURN 
& BO LF: el :TTY LINE FE 
us RO: 377 : TTY RUBOUT 
1 oO XTEST: 0 
ZERO: 0 
101 Tc: Cc STORAGE 
101 TEMP1: O :T TORAGE 
101 T Mpe: ? TEMPORARY 5ST 
001 TEMP3: : TEMPORARY ST 
001 TEMPY: 37 TORAGE 
4 001 TEMPS: 37 TORAGE 
4 D1 SAVRO: QO ; 
4 001 1: 3 ?R1 ST 
4 DO1 $ ; TOR 
1% fe peat ina Bt 
494 O01 gavac: 0 RS TORAGE 7 
49S 001 VSP: O :STACK POINTER STORAGE 
438 001 SAVPC: :PROGRAM COUNTER STORAGE 
4 teat SAVEO: 
498 O01 SAVEL: 
499 VE! 





EVEN 
ACTIVE: TR.MAP 


wi 
a 
8 
e 
rt 


; TABLE POINTER. 


—— | 


SE@ 0013 


coo 





B0e 
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14-DEC-77 12:19 ROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0014 


501 
;PROGRAM CONTROL FLAGS 


patoR 


sos BRB uete: BE § ERRORS Ana REIN FLAC 
ce SBI BRB ace: cave STE OURSHENE ET ages” FA 
1 Beam — one ere a IMRINTENANCE git S ACH 1879 ITERATIONS WILL BE SUPPRESSE 
Sil 001352 EVEN F 
215 jDEFINITIONS FOR. TRAP SUBROUTINE CALLS 
514 ;POINTERS TO SUBROUTINES CAN BE FOUND 
B16 'IN THE TABLE IMMEDIATELY FOLLOWING THE DEFINITIONS 
S17 g3 RERKKEAARAKERKERERLAEKRRKKREERAE RARER ALRAREREAARAKRRARRARAAALAKRAAKRRARHLEE 
13 01362 iin Lae a ee ee 
oY eases it SCOPE=TRAP+0 ;CALL TO SCOPE LOOP AND ITERATION HANDLER 
Bee poizsy aettO! SCOPI=TRAB+1 . ;CALL TO LOOP ON CURRENT DATA HANDLER 
Bei mana 1534 TYPE=TRAP# ;CALL TO TELETYPE OUTPUT ROUTINE 
Bee meme aD TYPEFSTRAP+3 _ ;CALL TO FAILURE MESSAGE OUTPUT ROUTINE 
pon 4 TYPEL=TRAP+4 ;CALL TO REPEAT MESSAGE OUTPUT ROUTINE 
230 seek i Be INSTR=TRAP+S ;CALL TO ASCII STRING INPUT ROUTINE 
7 orn ite INSTER=TR +o 8 ;CALL TO INPUT ERROR HANDLER 
esd seme Ee PARAM=T 2 ae ;CALL TO NUMERICAL DATA INPUT ROUTINE 
PS | mevees 419 SAVOS=TRAP+1 ;CALL TO REGISTER SAVE ROUTINE 
238 oia7y paaeS RESOS=T TRABS i ;CALL TO REGISTER RESTORE ROUTINE 
hy eee Cant td CONVRT=TRAP #16 | ;CALL TO DATA OUTPUT ROUTINE 
a Cate CNVRT=TRAPS 13" ;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
S44 
ede PEPE PTT TNT T TTT TTT TTT TTT TTT TT TTT TTT TTT TTT TT TTT TT ttt 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


T T 
0 ;REC INTR VECTOR 
72 ;REC INTR STATUS 


SEQ 0015 


_ CZTRABO MACY11 30( 1046) 
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001500 


Spark 
8 
B 


i 

| §68 001500 oo0001 
569 001502 O00001 

001504 o00001 

| 


00iso&6 000000 


SSS 
neo 


DO0e 


7 
PROGRAM PARAMETE"S, VARIABLES, AND TRAP CALLS. 
;TR79 STATUS TASLE AND ADDRESS ASSIGNMENTS 


Ce ee ee ee ee ee ee ee ee ee ee een ee ee ee 


12:32 PAGE 1 


.=1500 

TR. MAP: 

TRCRO: .BLKW 1 ;CONTROL REGISTER FOR TR79 NUMBER O 
TRVCO: .BLKW 1 ;BASE VECTOR FOR TR739 NUMBER O 
TRLVO: .BLKW 1 ;PRIORITY LEVEL 


TR.END: 000000 


E0e 
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573 
$74 


BRIRR TORE ARLEN BSC RR TORE Bao! 


OOOO SSK OOO 
Dee ee ee bee 


WNV-OWONOTULSW-O 


PoROrOnD 


Re 


wn 
ro 
[=] 





sO bb 


ERR okeKESeENTS 


+ 
e\e\e\e2 «|e 


+25" 4 





ee 0 hh he 


+ 
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14-DEC-77 12:19 PROGRAM INITIALIZATION AND START UP. 


PROGRAM INITIALIZATION 


LOK, OUT ATR Fac 
beet MP PROGRAM CONTROL FLAGS AND COUNTS 


;TYPE TITLE MESSAGE 






. START: 
MOV #STACK, SP SET UP STAC 
MOV WLEVEL6, *LOC QUT SNTERRUPTS 
MOV 8. IL, ue ;SET UP bOnER AIL VECTOR 
CLR N > CLEAR pass COUN 
cthe GV FLG OER gui K VERIFY FLAG 
MOV 8TR.MAP, ACTIVE i ZER ns A 
CLR ERRCNT : ERROR 
CLR STERR : POINTER 
v i STNO : 
MOV #.START,RETURN ; 4 F R FAIL BEFORE 
:SET UP FOR SMALL 11 SWITCH u TIBILITY 
MOV 6,-(SP) : 
MOV 4’ -(SP) : 
MOV 2s,4 >SET THIS ROUTINE 
CLR TS 
' # ' ° 
127% 22S: MOV GSnREG, SUR Tf HERE NY To SOF THARE SUR 
0127: MOV #DISPREG, DISPLAY’ ; PO D rte" REGISTE 
Decbet POPeSP ; RE STACK 
TE: 21S: Mov (SP 44 ;RES HE BUS ERROR VE 
0227 MP $ENDAB, aa4e 
BEQ 31 iE - TP Tarte brite 
TYPE MTITLE : ut 
31S: TST 42 : * Ose 
BNE 11$ :YES - bePauLt AAO ARAMETERS 
29s: BI #SWOO, ISWR ; RE ae ed ie aoe 
11S: MOV : SEun00 TRCRO ide, rales BlaieeTe te 
MOV #170 TRVCO 
MOV #4, TALVO 
JMP 66$ ;IF NO, SK P THE INTERROGAT ON 
32S: MOV #TR.MAP, RO jPOINT GINNING OF THE MAP TABLE 
68S: CLR i CLEAR A TABLE LOCATION 
CMP RO #TR.END iH HAVE E 7Bo IES BEEN EXCEEDED? 
BNE $ He Peo ELE XT LOCATION IN THE TABLE 





;THE FOLLOWING ARE PARAMETERS USED TO FILL IN THE MAP 
;TABLE AND SET UP THE DIAGNOSTIC. 


;GET THE BASE ADDRESS OF THE TR79’S 


338: 


10440S INSTR ;CALL THE STRING INPUT ROUTINE 


SEQ 0017 


TERE 8 





002146 


a 


o 





Cl ee ee 
rurururo: 


See 


& 
N) 


Vea ZINeS 





COCK OKK MO 


NN 
wo 


SOARADREBEIECETTEEEE 


34S: 





FOe 


OGPRNGD AI QEC-77 12:38 ERAN INITIALIZATION AND START UP. 


69S ;POINTER TO MESSAGE TO BE PRINTED 
PARAM ?CALL THE OCTAL TO ascii CONVERT ROUT 
i ate Bg io fies meus MA 5 HE O ee BE cee REPONSE 
RCRO oe Neer 46 hae COeAT? T F CLED 

YTE 7 MASK OF of NYALID ITS FOR THIS PARAMETER 
BYTE 1 PARAMETERS TO STORE 


na SS Meee iper 
PARAM > CAL 
170 ar 3 T tegi con cr TED SPONSE 
tAvco ae Je Hi Th ATION 19 BE dite 
.BYTE 3 ; ID a OR ee FILLED 
BYTE 1 ; NUMBER VALID etre TO STORE 
;GET THE BUS REQUEST LEVEL 
INSTR L THE | TRIN NPUT ROUT TINE 
tion ON A, ag gn grea gee 
4 eel LE tTihA OF EXPECTE RESPONS 
- ee RTS nero alta . oe RePONsE 
BYTE . aa PARAMETER 
I ¥ NUE PROEESCING. 
-ASC >/CONT . 
SE aree ry 
ASC (377) 760 TEs one 3 ONLY ’ IP? 
aBIT6, aswR ; INHIBIT AUTOSIZING? 
EADER ;YES-GO PRINTOUT MAP TABLE 
SIZE. ; TYPE “AUTOSIZING” 
Saf AAP, SAVED. iSAve PRE-AUTOSIZE CSR ADDRESS 
TSTNO ALL THI ST 
Ma eB eo ome 
BES , ae + Rh k NT Ene. BIT SETS 
PC; TESTF CHECK INT ENB BIT CLEARS 
PC TESTG ;CHECK LR WORKS 
#395, oat :SETUP FOR TIMEOUT 
#160000, RO sFIRST VALUE IN RANGE 
(RO) ;IS THIS THE ADDRESS? 
#6, ae4 :YES-RESTORE TRAP CATCHER 


SEQ 0018 


C2T 


SBaSaRISRS SAE SAADORCRRERRRGERES 


[one 


DMNOU LC Wr 


bh eh hee 


NNN NNNNNNNNNNNNNNSG 


Bagyyennyns 


333 
RES 
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es 


o0o0006 


012737 


: 


-O 
N 
8 


o 
- 


176744 


8 


A7e7 eq 





waa’ 


= 


£0 
- 
w 


22 
R 


010323 


12:32 PAGE 20 
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VECSIZ: 


1S: 


4333; 
<<< 


goeeeees 


pas 


oDmoew00 
a 
<DUNDDO 


z 


GOe 


#0, ae6 
RO, SAVE1  ;STORE AUTOSIZED VALUE 
MEOUT-RESTORE 
42, RO joer bp roe HEXT abortss 
, ty Ss 
6, aes ?RESTORE TRAP CATCHER 
x 
4’ . ;CSR NEVER SIZED-ERROR MSG 
0, SAVE1 ;EXPECTED CSR ADDRESS? 


aeTR. MAP’ -NO-PUT SIZED VALUE INTO TABLE 
an se MSG 
R.naPe, ;SAVE PRE-SIZE VECTOR 


7 wext it coe Ski” ON ERROR 


es TACK, 
ai," 3 ;SETUP FOR IOT TRAP 
TUP FOR TIME 
a1, 8170 TUP FOR INT - THIS ADDRESS 
welg, RO ;SETUP FOR INT TO ALL POSSIBLE ADDRESSES 
Ri, (RO)+ 
GY (R1)+ 
(RO)+, (RI)+ 
Ri #1000 
Eve ;MAKE CPU PRIORITY 0 
#4100, @TR.MAP ;ENABLE INTERRUPT 
RO :WAIT 900 MSEC 
#-12, Ri 
R 
1 
Rg 
#4100, @TR.MAP ;NO_INTERRUPT-DISABLE INTERRUPT 
86, ae4 ‘RESTORE TRAP CATCHER 
#9, ase 
1 ;ERROR MSG 
, PRHLT 
a6, “4 ; TIMEOUT-RESTORE TRAP CATCHER 
7 ;RESTORE STACK 
S ‘ERROR MSG 
PRHLT 


SEQ 0019 


CZTRABO MACY11 30(1046) 14-DEC-77 12:32 PAGE 2! 
PROGRAM INITIALIZATION AND START UP. 


CZTRAB. HED 14-DEC-77 12:19 


NNN 
® 


ee 
ie 
é 
4 
zs 
SY 


elgel A een 


N 
<£ 


a 

re PHS B10 a a36 
7 pole 
5e3 100 176476 
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8 001304 
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004100 176372 
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Sabe ceeerecr oor 
SLO TOVEOS PRERTO 
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2a 
BeBs 
2 8 
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001226 


Beeeeene 
NEES 


001304 


o00r--0Or~ 


ret es es PERS SPS AAE tts 


“N 
3 
B88 
WWWW 
EEBUN 
R88 


N 
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Oo 
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fu 





HOe 


#6, gee ;RESTORE TRAP CATCHER 
(SP), savet ;STACK POINTS TO VECTOR ADDRESS PLUS 4 


oh, — ;RESTORE STACK 
0, SAVEL j EXPECTED VECTOR ADDRESS? 
1, aeTR. napixe® -NO-PUT SIZED VALUE INTO TABLE 
_ wane ;ERROR MSG 
auTh- nae 388 Me eTTT 40 START BR SIZING 
» Taps Eas Sunred 
#BRSIZ, RETURN UP FOR LOOP ON ERROR 
ADER, staeneh FOR SKIP ON ERROR 
r . SP 
TEMP ePo PRIORITY 
asTR. MAP+ VECTOR ADDRESS 


34S, (RS) 4 a rine Inte 
4340, cRe) 
ggi0d, | STRAP EE EGA sec 


#4100, @TR.MAP ;NO INT OCCURRED 
VE1, SAVEO ; EXPECTED INT? 


ty S-ERROR MSG 


BRER1 
saves TEMP1 ;DECREMENT CPU PRIORITY 
SAVEL  ;IS CPU AT LEVEL 2? 
ii ig. : YES 
#BRSIZ }NO-CONT INUE 
,» PRHLT Pa NO INT AT CPU LEVEL 3- 
#4100, @TR.MAP ; UR D 
1, _aeTR. weil VICE PRIORITY- 
Saye MAP+4 CPU’S AT INT PLUS 1 
4 geen INT? 
fe NO-ERROR MSS 
ii ‘ TSTNO 
ne XHE ;TYPE MAP HEADER 
$1S00, TEMP1 


MAP, RO ; SET POINTER 


sTR. 
(RO)+, TEMP2 
M FALL DONE WITH DATA 

:CALL THE OCTAL TO ASCII CONVERSION ROUTINE 


Po a ee 


C2T MACY11 
CZTRAB. HED 1 


Setenenne ose aeaeoR 


Postesteelectesteclesteslealss] 
Oe a bao pe be me an be ae Be 


RESERE 
NELWNM-OWONTU CWO 


S500) BIRO? 12 






177776 


175700 


b0380 


003556 
003560 
001214 


32 


XSTAT@ 
ADD 


Ide 
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PROGRAM INITIALIZATION AND START UP. 


TEMP 1 


tant J 
a 


ts#~--—2 
De 
_— 


.- BEGIN: 


1S: 
es: 


MOV 
MOV 
TST 
BNE 


§NOP, TTST 
#NOP; TTST+2 


BRU, TTST 
BRX’ TTST+2 
acyCLE, RETURN 
, MCRL 


ORE TURN 


;CONVERT THE DATA AT THIS ADDRESS 


3 PROGRAM RUNNING UNDER MONITOR 


poarone TO CLEAR THE REMAINING 
VECTOR A. 210-776 
START ING “PC+2 - HALT” 


;LOCK OUT INTERRUPTS 


+ UP STACK 

ids rpocea UNDER MONITOR CONTROL 
’ 

IGheck FOR Lock On TEST 
T OCK ECTED. 


fo 
: FOL 


SPT UP 


; CONTI Cte 

; PRE SCOPE _ROUTINE 
;LOCK_NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 
;START AT “CYCLE” FIND WHICH DEVICE TO TEST 

; TYPE_“RUNNING” 

;START TESTING 


J0e 





C27 MACY11 30(104%6) 14-DEC-77 12: 23 
&Sth -HED 132528253 12:19 380 OF PAGS ROUTINE SEQ 0022 
826 ;END_ OF PASS 
827 : TYPE NAME OF TEST 
Bee : UPDATE PASS COUNT 
8 :CHECK FOR EXIT TO ACT-11 
830 :RESTART TEST 
831 non 
835 005037 001234 prt LSTERR ;CLEAR LAST ERROR PC 
B3d BOI une Brecht i GEE ARE BRCe ESGNT 
o 1230 175572 MOV PASCNT , DISPLAY DISPLAY PASS. OUNT 
i 14 CNV T + BSR it car 
840 1 TYPE AVEC + PPE VECTOR 
gy 1 CNVRT ‘XVEC j SHOW I 
84 1 TYPE * MPASSX : TYPE PASSES 
gy 1 CNVRT ‘xPASS 3 SHOW iT 
B44 1 TYPE * MERRX : TYPE ERRORS 
1 CNVRT XERR >SHOW_IT 
1 001347 MOVE $377, QV.FLG >SET THE QUICK VERIFY FLAG. 
1 2 MOV as4e-Ri 3CHECK FOR ACT-11 OR DDP 
Bug BEG RESTRT i JF NOT, CONTINUE TESTING 
oa SET *STOP THE SHOW--CLEAR THE WORLD 
| Bey * JSR —s- PC, (RL) 
NOP 
| NOP 
¢ NOP 
BSE 10664 001214 RESTRT: MOV #CYCLE, RETURN 
85 10664 MP CYCLE 
ps4 XCSR: 1 
oo2 -BYTE 6,2 
Be0 TRCR 
XVEC: 1 
me a 
864 XPASS: 1 
B65 002 -BYTE 6,2 
PASCNT 
a4 o02 ERR: Jove 6,2 
B69 ERRCNT ° 
e7k ;SCOPE LOOP AND ITERATION HANDLER 
873 ’ 
874 003544 001234 .SCOPE: CLR LSTERR sCLEAR LAST ERROR PC. 
875 003550 35 040000 175424 BIT #B1T14, aSWR ;"LOOP THIS TEST"? 
876 3556 1407 TTST:  BEQ a BR IF NO. (IF LOCK SWOl=1; THIS LOC =240) 
BS 1 333 175416 ee SF KCSR i Rey, DONE? a ee? ae ee See 
Eo} B88 HIPPIE aroue Sy Hxoon, cs) Stet She BES MIT KEY TO coro Next TEST 
881 003574 O00411 BR 2s : : CONT INUE 


— 


EFTRAB. HED” 


SUBSE EGR Oe RRSEM Bae RR TOR 


woOWWWWWWO0 
a ee ee be 


WONT LW 


Se ay Ry 





- 


003776 


v1, 205gp%%) 
ee 7 





001347 
1224 
boise 
001345 
BERS 
1216 
175336 
032777 001000 
001405 
737 001220 
1402 
13716 001220 
10S) 
1 ooo0de 
ooo0de 
t 71 
1 005320 
t 17SeSe 
es 7524 
O0isee 
Bisaee 


017637 O00000 
00000e 


010346 
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001222 


175312 
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003766 
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NERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC. ) 
1S: TSTB QV.FLG ; PASSES BEEN COMPLETED? 
BEQ es ;BR IF QUICK PASS. 
INC LPCNT ;UPDATE ITERATION COUNTER 
CMP LPCNT,ICOUNT BRE ALL ITERATIONS DONE?? 
BLOS $ sBR IF NOT Yer 
2s: CLRB = ERRFLG ; FOR NEW TEST 
cLR LPCNT ;START ICOUNTER AT O 
MOV #0, ICOUNT ;RESET ITERATIONS 
MOV Nex , RETURN BET NeXt fest 
3$: POPesP ;FAKE AN “RTI” 
4§: JMP RETURN ;GO0 DO THE TEST 
BRW: 1407 
BRX: 437 
;CHECK FOR FREEZE ON CURRENT DATA 
; me ae a a ae ener ae ere cnrr cnrnrnr asc aesasaenraesaesaeaen e 
-SCOP1: BIT #SWO9, ISWR ;IS SWO9=1(SET)? 
BEQ 1§ ;BR IF _NOT SET. 
TST LOCK 31S THER A TIGHT LOOP SPECIFIED? 
BEQ I 31 NO, RETURN 
MOV LOCK, (SP) ;1F YES, GOTO THE ADDRESS IN LOCK. 
1S: RTI ;GO BACK. 
; TELETYPE OUTPUT ROUTINE 
H www www ww wm NM MM wm wm nm wenn nn ee 
-TYPE: MOV RS,-(SP) ;SAVE RS ON THE STACK. 
MOV detsP) RS ;GET ADDRESS OF MESSAGE. 
ADD #2,2(SP) ;POP OVER ADDRESS 
1$: TSTB = CR5) 
Free SRCRLE 
2s: rsTé STPCSR TTY READY? 
MOVB (RS)+,aTPOBR PRINT CURRENT CHAR. 
3s: ROY (SP 4,5 SEND OF OUTPUT. RESTORE RS" 
: RTI , 60 HOME : 
;AUXILLIARY TELETYPE OUTPUT ROUTINES 
; we em wm wm wm wm Bw wm mM wm wm em nnn nr asa asa asses aera aan 
.TYPEF: MOV O(SP),LSTNSG  _;GET THE ADDRESS OF THE MESSAGE 
rypeL: 908 #2,(SP) ;POINT TO THE NEXT LOCATION IN 
CSTHSG: [WORD 0 {POINTER TO RESSAGE 10 PRINT 
TYPE jTHIS PART PRINTS THE REMAINDER 
MFATL ;THIS IS THE 'FAILURE’ PART OF 
1$: RTI ;RETURN TO THE MAIN PROCEDURE 
;STRING INPUT ROUTINE 
INSTR: MOV R3,-(SP) ;SAVE R3 ON STACK 


K0e 


ME TO PRINT 
THE MAIN PROCEDURE 


Ad THE MESSAGE 


4 


aera toan eee 8 


Ae se hay AU 


s 


ed ic REAR R RADY 


ww 
ior 


nr ee 


LO0e 





OBOE FOS ONED aA TQEC"77 « 12:36 NERAL UTILITIES (TYPE OUT, ERROR, SCOPE,ETC. ) seo coy | 
pout -(SP) ; RY 
ee en a a Re Rs ee BO ee 
DOwdet “MSG: O " - POINT Ss OINT Ir Pyren 
oh EP Tee ecards Mee aor Elennctens Lowen 
5040 <4 BPL 1 : t NO abi, FOR TT 
ee ' ' MO’ a K CRY) F Fron 
oe SMa ca Rae Sa 
vate 2s iste ayPUSR if Rot sOeek iat Ye ERBRACTER CAN PRINT 
5040 :IF We CAN'T. WAIT UNTIL WE CAN 
DOC 175120 MOV @TKDBR,STPOBR ECHO 25 Ae nr 
DO4C DEC R3 $ ET HOE CHARACTERS RECEIVED 
DOYC BNE 1 H re RS GET SOME SOME MORE 
BOYD ta (363+, Ry ile 
DO41G2 O10346 .INSTE: MOV Re tSps ; R3 ON STACK 
1 MOV R4’-(SP) R4 ON THE STACK ; 
i 08 scomaects BR ee TDR A OUESY TOR Frank again’ — 
Lie Sleeks ere: fy (eis 
138 ooo002 RTI mn OSS *RETURN TO THE MAIN PROCEDURE 
;CONVERT ASCII STRING TO OCTAL 
1 1 .PARAM: MOV RS,-(SP) ; RS TACK 
Soatt Bibs 900004 nov Fa, - (SP) Save he on ine a MATION POINTER 
Boas ot a5 MOV ihe i site LOW LIMIT FOR THE I 
1 1 14 MOV (R5)4+;HILIM :SET THE H MIT UT 
poise fee ae in ReNtane SNF DEEPER em RT pLLGM PF STOR 
1 11 1 MO (RS)+. ;GET COUNT ies 5 D 
BBIEE BABSHe 90000 ames, BOX RENE? ERNE POPE REGS IPHS COVA Hetic OBRS 
’ 
BIG bgrcag Stel OE arte Seas geroee 
poasa8 : iS an stro BORER itp SO oS PR , PT THE Hecsace NeATN 
Beg ue? 000067 MPB GRaD 7 i Tuts IC RANGE? 
12 142714 oo00060 ICB #60, (RY) > ISOLA 
BE EER ono wi ee apie Ba fee Ba 
$5 Bs a oe Be BEL AA I atee he TAR TE ee EET ABET | 
ASL R IT 0 THE HE Ler a AGAIN 
004232 006305 ASL RS VE THE STRING ONE MORE TIME 1 MAKE 


M02 
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CZTRAB.HED  14-DEC-77 12:19 GENERAL UTILITIES (TYPE OUT, ERROR, SCOPE,ETC. ) SEQ 0025 | 
dae BOG53¢ = PB0GB2 parerr: fnster |S 1 ORE Wat AN ERROR] GO PRINT THE MESSAGE AGAIN 
$36 04240 000750 BR PARAM TRY GETTING THE PARAMETERS AGAIN 
333 gTEST TO SEE _IF NUMBER IS WITHIN LIMITS 
ES ae A ge Ye ld 
1888 Besse 33705 “hei | BITB LOB BR nc HP res, NC Pat CT BIT Ty THE TRESULT? 
i 004262 bai see ea BNE BORER’ of so, pre BRINT THE Seah 
ie ;STORE NUMBER AT SPECIFIED ADDRESS 
Bit Behe B10 004316 ve ney Rev eet UE The THE ke npperson WHERE THE RESULT WILL BE STORED 
i8i3 Bees iB bo4se1 be 7 By COUNT OFS TORED SULTS. IS IT EXCEEDED? 
’ 
131 Ba4398 BABBoE RPY ae ieee MAIN PROGRAM 
1019 004312 ooD000 LOLIM: 0 nest, eerie” VALUE 
ips; Bouaie ) Dev N: : 8 : eT Ton MERE PRE EULT WILL BE STORED 
1388 Bouast boeing: ‘BYE 8 SADGNT OF TPEm® Tobe STORED 
1085 ;SAVE PC OF TEST THAT FAILED AND RO-RS 
tte Tle BB Bn lh th nt 
004322 016637 900004 001334 .SAVOS: MOV  4(SP),SAVPC ;SAVE R7 (PC) 
1936 ;SAVE RO-RS 
1 004330 010537 001330 SVOS: MOV RS, SAVRS ;SAVE RS 
ie fies Bite Ble | ee 
i a4 Ol 001322 MO Re, SAVRe SAVE Re 
1337 Dou3e4 10037 oI aie Mov «ROP SAV SAVE RO 
1038 RTI i LEAVE. 
ie ;RESTORE RO-RS 
IGS GESBEE BHR pet = «FESO gy saunas RESTORE 
1044 004372 013702 001322 MOV SAVR IRESTORE R2 
1 001 v AVES’ RG tRESTORE RG 
foie Gowns BIS bles ny Seas = RESTORE 
i 13705 001 v VRS_RS PRESTORE RS 
104g OOMM12 00002 RTI LEAVE 





— Le A 








NOe 
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| 
| 

1950 ;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 

: ee eae ae ia aa i ae ee ee es ea ae ean ar aaa asa asec ee 
i D0 .CONVR: TYPE MCRLF ;PRINT_A CARRIAGE RETURN 
i BC “CNVRT: MOV RO, -(SP) ; 
1 ve MOV R1,-(5P) : 
1 ce MOV Ra, - (SP) ; 
i aC Movs Re’ = SP) - 
10539 00 MOV 912(SP),R1 : OF THE ARGUMENTS IN Ri 
1966 D0 ADD a 1eCsP) : i N PROGRAM WW RESUME 
i af 1S: HO CLD *  WRDCHT i GET Te TERS 10" PRINTED 
ee ee, i ‘ot 
i ; 3s oye Rs, ~ ; AGAIN 
4 we y BIC sos ,R3 31 titaTED AS A CHARACTER 
{ af ROVE $080) ) , THA 26 spied pecs: 
: f ROR Ry ; iene 3% eet BITS INTO PLACE 

% ; : 

ae RY : Y A THIRD TIME 
a3 Of: RS ay eeiahes COUNT. ARE ALL CHARACTERS 
i pAE 3s PY ; ILD THE 
1 MOV SMDATA,R3 ; Marat % hit PRINTED FROM 
1 4S: (SP)+, (R34 ; ; eR u 
ea i‘ ee aes 
} rte R : R Ns INTED? 

: (R3)+ H P 

is “ DEC RO 7 fi PRINT MORE? 
1 6S: eRe (R3) ; TERM NA tn Burtt WITH A ZERO 

TYPE MDATA : T “Weeec J T BUIL 
ie DEC WROCNT ; ANY MORE WORDS LEFT? 
1 BNE 1S, IF 5 WORD COUN Men 
1 MOV (SP)+,RS ?REST 
i MOV (SP)+;R4 ; ST RY 
1 MOV (5P)+'R3 SRESTORE RB 
i NOV CSP4° RO TREC TORE. fi 
: seueaeis RTI . >REU TO THE MAIN PROGRAM 
1 CHRCNT: .BYTE ;NUMBER OF CHARACTERS TO PRINT 
1937 SPACNT: [BYTE 0 :NUMBER OF SPACES TO PRINT 
1099 NWRD: 
1039 BINWRD: O 
1183 ;TR I PATCH. SERVICE 
1185 ARCUMEN #°6r AP IS EXTRACTED 
i104 ‘AND USED A 5 OFFSET TO OBTAIN POINTER 
$105 TO SELECTED SUBROUT INE 


_— — = 


BO3 


TIES (TYPE OUT,ERROR,SCOPE,ETC.) 


SE@ 0027 
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GENERAL UTILI 
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- CZTRAB. HED 14-DEC-77 12:19 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC. ) 
4162 104413 005214 CNVRT ,ERTABO ;SHOW IT 
| 4163 b | eet qs ; S NO 
| ties pet 77777 001345 hes ife RRFLG fe CACADER UNLESS NO DATA TABLE 
1185 DOSE baso%0 TST EPaneG 31S TOE RE AN ERROR MESSAGE? ? 
1188 00501 1 WTBS.FM i 6R F NO. 
11 105071 ERRMSG: O : ERROR MESSAGE 
117 5 WTBS.FM: ; 
1178 005102 TST DATAHD :DATA_HEADER? 
1173 105076 ro. YPDAT ; F NO 
1175 [ DATAHD: O : DATA HEADER 
1176 1 TYPDAT: TST DATABP ;DATA TABLE? 
i ie BEQ . RESREG ;BR IF NO. 
SATABP: H aT 
He 0 RESREG: Besos iResTORE PROG REGISTER 
1 1 oo00042 HALTS: C 6 #SENDAD, a842 i CHECK O SEE ae ACT-14 MODE 
3 
tHALT ON eee 
He ! ie a i XITER ‘BR IF NO HALT ON ERROR 
1i8e I 140 : Rov 2(SP),RO Stu ERROR PC IN DATA DISPLAY 
1188 1 500 POPRO iGBoate 
il 130 EXITER: INC ERRCNT : COUNT 
1180 i F 174020 att #SWO8, ISWR GO o. oF TEST? 
1136 ig4 174010 Bi 10, aSWR Gord next TEST? 
1194 74 001214 MOV NEXT, RETURN :SET FOR NEXT TEST 
11 1S: MOV Tatk ope : T 
1138 ‘ 0 . Mig SRE TURA ba CIFIED TEST 
1198 14 00 ERTABO: 1 F 
1199 ppese8 -BYTE 6,2 
tH? 
1201 XTSTN: 
120e gosee4 003 ;BYTE 3,2 
ES ENTER HERE ON POWER FAILURE 
1 ’ 
120 
1208 005230 .PFAIL: 
d nae BA5r8s oos2e42 oo0024 MoV #RESTART, 24 1% T UP FOR R UP T 
isl nose 9 BR ' :PREVENT ANY FURTHER PROGRESS 
1213 ;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
teis pose4e RESTART: 
1216 42 012737 005230 o00024 MOV #.PFAIL, 24 ;SET UP FOR POWER FAILURE 
1217 005250 012706 001200 MOV #STACK, SP :RESET THE STACK POINTER 


DO3 
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| CZTRAB. HED 14-DEC-77 12:19 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC. ) SEQ 0029 
| sen - CLR RO RE "one oF oo 

i : re BR F TO i 

leel T , MPFAIL ;T THE MESSAGE 

1 CNVRT PFT i TELL WHAT TEST TO RETURN TO. 

1 CLRB EPRFL ?START CLEAN 

fe ba START DOr 

} HP URN !START DOING THAT TEST AGAIN. 

1 YT 3,2 

1 TST e 

le . ? po 

is $33 aR FAILED. RESTART AT TEST / 


4 
; 
>/END S CZTRAB / 
> INDICATES NO DEVICES PRESENT. / 
4 CIENT DATA! 

> 


RAR AAAA 


=/ 
ON SELECTED TEST/ 


ee 
ee ee XN 


“nN 











oe 





ee et et et eet et et et et et et et et et et et et Rt Mt it Nt et Ret Net Cet Nt Nt Net Net Cnet Cet Net Ct et Cet Cet Cee et eet Cet Cet et et 


S 
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(8 

(2 
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3 
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( 

3 

( 

( 

(5 

(2 : / 

fF ae REVERSE 7 

} 1 eee HIITE ROSPL A HHCS SBD" a Thee oH 
3 : -Bakt ‘ 3 Y, 

( + gation <377> 7 > Ne 
s t. (377) OCK PAST LOAD POINT / 
rf RG 27 bie PONT” 

if REL SPP aati hg oe etre ON” 

( :. (377) OF FIL FROM LOAD POINT / 
(37297 T LINE ROMER TAPE MOTION HAS STOPPED / 
(2 :. (377) /WR BLOCK FROM LOAD POINT / 
fF t. <377> OFF LINE 7 

( :. (3777 7 

(3 ES: ‘ ; A TA i. Z 

(e :. (372>7 € VER OVER ENO OF FILE / 
3 “BSI < > URRTE TINE OUT / 

( (3777 TIME OU / 

(2 "ASCIZ <377>/WRITE NON-EXISTENT MEMORY / 





WS RTS ett = Poa PEt PG SE Re a a Rs SF SSN RC EA Ce 


i 


STR wD MACY 11 Fr we # Sy Br etl 12: he 


0S1 


RR FS 
IS 


_ 


2 R 
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: 
: 
: 
: 
: 
: 
: 


ee tt a at at at et at et Nt et Bt Nt et at Nt et at Rt et et et et et et et et ee 
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( 
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i 
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( 
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( 
( 
( 
( 
( 
i 
( 
( 
; 
e 


= 





3e 


ee ee ee 
sheet heehee oes 
Witbetatn tay 


010514 tet eu FA 
“0 o105s— 000000 iTVEND 
e41 O1 000000 TEMP 
e42 0106ee =. +40 
e43 010622 000000 MDATA 
e44 010664 .=.+40 





oO oo oO 


E03 


OtrLrt1Es (TYPE OUT,ERROR,SCOPE,ETC.) 


qi RE ete 


13- EXISTENT MEMORY / 





& 
ei 
“aN 
aah SN 
“SR 


/ 
eer / 
Poe 1 POS cee / 
PAST END OF TAPE Z 
POINT /7 
OCK / 
pe 
TY —E REVERSE 7 
N ive | 6¥ 


Rene set / 


a ZENO, oF RESTART "INPUT. v aye z 


cat CELE LEEC LEEKS CHEE 
eee 
Saar, 
DO\E 
44 
- 
°o 


RAAAAAAARAAARAAAARAAAAAAAME 





ac 


<377>/BR LEVEL INTERRUPT / 


6,3 
6,2 


;BUFFERS FOR INPUT-OUTPUT 


S27) “Aut neni" - DEVICE FAILED TO AUTOSIZE 7<15><12> 
(39937 


SEQ 0030 


5 fhe, MACY11 3 gou 1046) 14-DEC-77 12:32 PAGE 
CZTR 14-DEC-77 12:19 


1 
1 

154g 

ie 

1 

15e3 

He Se Ee Bee 
12e5S 010674 O1 BS S35 

1 1 5737 1685 

1 1 a1eH 

1 10710 7 

1653 10714 

: i is io ooo002 170256 
Hee) BIGrse TBIMGE oosaeo 
264 

: ‘ 





3 


1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1271 Ol 

le 1 

127 1 

1274 Ol 

i i pe 
1 1 000004 
1 11 

1 11 

1 11 

1281 01101 

1686 i 14 

i584 Bit 

1268S O11 

ise? b11o3e 001214 
1688 011040 

1 

1 


yo 
#8 


FO3 


32 
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC. ) 


CYCLE: 


7$: 


6S: 


Tuts ROUT TS At B UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 


‘i RUN, F FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 
v TIVE RO ;GET S POINTER. 
HOV Ro} » TREASE L "SySTeR CTRL. REG 
MOV (RO)+; TRVC *L 
rt {RO}s) TRPRT Ser UP matte 
TST ci ie es UNDER Wie ger e 
pal 1, aSWR IF l=1, GET ING TEST # 
BE ug Ct’ :BR IF NO +5 15 TO BE INPUTTED 


a 
- 


MCRLF 
"STARTING TEST NUMBER 


i Piva TREY Poe, 


PARAM CAL 
1 ; OUEST C T r e naTE T Rou D RESPONSE 
1000 >HI HEST LE Uy nat Ufo Ore abe EC ED REPONSE 
TSTNO ;POIN ths PoR"y TO BE 
.BYTE O :MASK OF IRV ITS ort TER 
“BYTE 1 :NUMBER OF SARAMET ERS STORE 
#TST1,RO 
CMP #12737, (RO) 
ied TNO, 2(RO) 
BNE 
che sISTNO, »4(RO) 
MOV 0 RETURN ;SAVE PC 
TYPE MCRL 
BR ih 3 
CRP ah at STLAST+10 
BNE gg 
are 9g 
MOV #TST1, RETURN ;PREPARE RETURN ADDRESS 
IMP JRE TURN :GO START TESTING. 


SEQ 0031 
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MAXERR= ; MAXIMUM NUMBER OF OF DEROR PRINTOUTS 
mA 128, MAX 

i =a :PAS TE AT but 

040000 pone T 2240000 :CORE REQUIRED 


be hehe ee 


SBTTL PRETEST ROUTINE 


Sorina thee yea 


0000 DBDOOOOOOOOOOOOOCOOSO DBOOCKOOCOCOO0O000000000000 


1044 012737 011044 001250 PRETST: MOV SPRETST,TSTPTR ;SET TEST ADDRESS 
ipee biase7 poisad (Sd es K UP TINE PaRANE 
18e8 BAaa80 bus: .WORD O° THIS nT ERE COUNTER 
oooc00 . F NO T 1 
ity Boras me ike et Se rRERFS ERS oor naan 
1 011062 64 
313 168 001372 we BNE 66S Has THe Tore TIME Eta PBRGER 
1 1 052777 004000 170874 ‘ BIS #PWRCLR, JTRCR Device MASTER RESET 
7S: T R, aTRCR 
aig BILLS Barge, OOOO vos evs: BIT RRERCLRIGTRCR HHP ROU"UADY FOR TT To cLenR 
1 1 RESET 
317 i 006026 
1 


foe 170254 Bra #6026,  STRER CUR, commen REGISTER 
ie oats 001244 HOV His ERY er 


; INCORRECT REGISTER MATCHUP 


es ee ee be ie ee be ae ee Be ae pe ae ee Bm be Be he Be be De an Bn bee eae Be ee ne ae en be Be ne be Pe Be Pe be Be Pe pe Be 
ee te be be eh he he he he be ee he eh ee ee 
les aed ond and and ond oot eed ed eal eet ed ee ey 
bs 
SISSEHLE GKSLBRIG TR 
me 
68 
=m 
% 
| 


1 
us BH 
: BH 
e i 1 ARSTFL 
1 18: 
1 1 990950 001240 v P A mass LAY 
: bes: nov HOU, (E>+ Hecate HIS WORD AS rereR COUNTER 
3 56 — BNE at thas THE Vine eX ENPIRED? IF NO, LOOP AGAIN 
333 igge 1372 eeteee ri BRE S8s IF NO"GO a GATT A A IMG TALE’ cb PONGER 
ced 18i2 Bosese = P9b7es Cae = se SPRce HTEST COnmano REGIST pete 
1 i41e BEQ 28 :SKIP IF OK 
3 lie tice Ee ney Sag BS 
341 1 1 35 1 — ERROR - REGIST ; INCORRECT REGISTER MATCHUP 
aie 1242 104403 ocOoSseS6 TYPEF ,MRSTFL 
1 es: 
ae SHES giz7a zai nov TREAT cae AGB MEY Es 
347 1256 005701 TST R1 :TEST THE STATUS REGISTER 


ESTRRED 


1348 


a 


ect aot bil PARR PREM Aaa kau Aik 


Ww 
0 
N 


eos 


£LE 
tos 


ee ee ee ee ee ee ee ee ee ee ee ee ee be be ee ee ee 
oO 
W 


VIL GOKARIGD AN TREC-77 12: SEL EPGE Rdutine 


011260 001410 BEQ 
Bes BLO ossce PRY 
4 : ; 001406 001244 re a 
B11300 104904 YPEL 
11 3S: 
i 7. 001252 T T 
1131 o4ooco § 6167664 BIT 
1131 1402 Q 
1 1044 MP 
Biss Spense Selgss 7s: 
011334 000207 RTS 


HO3 


3S 
£0.85 
} SR, REGIST 


1$ 
jt Medien 
71 


ERR 
C,FIXBUF 


PC 


;SKIP IF OK 


; INCORRECT REGISTER MATCHUP 


SKI LO oe oor FLAG 


TEST 5 BIT 
F CLEAR 
ft THE DEROR FLAG 


5S aee eee EST GROUP 1 TEST 1 RRRMRRRRR RAH ERRR REE RRRHREERRERE 
# 


MPT ITTTritiritittitittittitititititttititititiiiiiiiitiiiirires 


Etiitiitttit? 
es * 





rater 
a e 
TE. sr" 


Be: Stes» 


;LOAD_THE NUMBER OF THIS TEST IN THE INDICATOR 
;POINT TO THE START OF THE NEXT TEST 

smear? 

; 


;SET TEST CONTROL INDEX 
;RESET THE STACK 


3 SET DEROR suaTEST ADDRESS 


INT as Te ST 
PERE A HALT TO INSPECT 
; res VOR pROGREH Cena’ op RATION 
iE Fer 16 
iB i F CLEAR 
; JUMP IF 
; CLEAR T ROR FLAG 
300 NEXT TE 
:PASS COMPLETED 


;THIS TABLE CONTAINS THE SUBTESTS TO BE PERFORMED BY TEST 1 


011336 

11 

ll 

11 

ll 

ll 

pi ised 

pits 

Stig 

114 

011424 

011426 

iiaag 04 167540 T 
LIES Bags vom i 
ri4 ; 7 ree BYS aR 
11468 : 

BLiNes Op07e) sony 
O11460 012564 TABLE1: TESTB 
O01146e O24014 RUNAS 
O11464 012646 TESTC 


oe WRITE 
Y TO WRITE W 
INSERT WRITE 


RING 
WITHOUT RING 


RING 


CZTRABO MACY11 30 
C2T Lape 


OOoO00000O C0O00000000 
[ee ee oe ee ae el ee ee ee ee eo et 
bas bs ben pon ee be fee Dt be Be pt ae fee Ps bee pe hae 


RBTSRSeN SoM 


ee ae ae ee ae ee ae ae Be be Be ae an ae be ee be ae be a Base eae Pe ee be ee Be Be Bw ne bs Pe 


RAB. HED 

1404 O11 

ties Btiu88 Bedaes 

1 11472 

1 11474 

ie Bus beeen 

iait oti 1 
141g il 3405 

141 1151 3606 
| 4414 011512 O15214 

1415 011514 011456 
| 1416 

1417 
| aig 
| fut 

420 

421 

yee 

a 

4 516 012737 

m 235 Oi 

4 Gi 

4 1 

4 

4 1 

4 

4 

4 

4 

4 

4 

4 

4 14 

4 195 

44d 
1 
443 104400 
444 
4 
ae 
448 
yy 11 pies 

S SHES piers 

ue5 il eee 
454 011636 014034 
Se flies Bie 
457 O11644 024314 
458 O11646 0 
459 O11650 Oe4Se2e 


Me) ——— “77 128: 





167374 


32 


I03 


35 
PRETEST ROUTINE 


TESTA ;DELAY 10 SECONDS 
TESTP ;TAKE UNIT OFF LINE 


TESTAK He rhe te R70 RESET 
Test ine 

TESTAM ; VERSE PAST EOT 

TE TAN ; 

TEST ; eee EOT 

TESTAP ; OVER EOF PAST EOT 
Test@ : AND GO ee LINE 


jeanne GROUP TEST SO RURRRERER KARA RA ARLE RRRE REE REREE 
+ TES 
MTT T TTT TTT TT TTT TTT tt TT Titi titititititiititittittittitititit) 


j:aenanehannen 
i TEST 2 
aerrrrrr ttt Ty 
tST2: MoV aeTSTNO LOAD THE NUMBER OF THIS TEST IN_ THE INDICATOR 
me eee HEOIPTSd aati tS 
om MOV SST ACK ap RESET Fhe STACK 
: MOV TC, TSTPTR 
v TC’RS T TEST _AODRESS 
ao Se, 
, os 
NOP : CHANGED TO A HALT TO INSPECT 
ont ; if Sines" ce PROGRAM OPERATION 
BEQ Cy i SK P IF DEROR 
BIT #81T14, ISWR : TEST LOOP 
BEQ $ ; H IF CLEAR 
64S aR aa : LEAR THE ROR FLAG 
r Sk 1s :D0 NEXT ect 
END2: SCOPE :PASS COMPLETED 


;THIS TABLE CONTAINS THE SUBTESTS TO BE PERFORMED BY TEST 2 
TABLE2: teat ;REWIND THE T 


TEST if ER TENTION BIT TEST 
TEST H rote T 

TEST ty RRUPT uy Bit GLeae fest 
Teetk PBINT 
TESTM a T ROM On Ao POINT 
TESTAT REVERSE AT LOAD POINT 


TESTAB ES 
TESTAU ‘Buss ADDRESS BIT TEST 


SEQ 0034 


egrnese MACY11 30(1 
CZTRAB. HED 


1460 


+ $F 
DDE 


No 


BsaNourzZan~3 


SELELCLCLSCLSCLC£ 


bee] 
be 


BHOD HDD 
OoO000000 2000000000 
Det bes hs be pe pe bm pee bs ps be be bee Pe be he Pe 
bh hh he 


VER LON BSBVERL 


SESS ES LELS 


OOOOOOOO0OO00000000 
es 


SEEN RREORES 


0 bs be pe 


cu guLqudqua oud qua.quaqudquad oul qudqmdoud oul gud oma qms end. oul oud oul oma.wal onal ond eed onl eed ond ond omdd el el eel el ed ed ld ed ee ee 
Wtwe 


WU 


16S2 


14-DEC- 
026144 


0116 
0116S4 011622 


SeeNee 


NN 


alae 
or 


REGEsSeN BP 


ae 


751 
104400 





) 14-DEC-77 


7 12:19 


167234 


12:32 rage 36 
PRETEST ROUTINE 


JO3 


TESTBA ;WORD COUNT BIT TEST 
ENDe 


tae TEST 3 HER RREH REALE HEL REEE SERRE REESE 
+ % TEST 
METI TTT TTT TTT TT TT TTT Tit tii ttt tt iitititititiiititiittitit 


peprneeneeens 
28 TEST 3 
Rata 
tST3: MOV 7 anes LOAD THE R OF THIS TEST IN THE INDICATOR 
MOV $Ty NEXT :BOINT TO THE START OF THE NEXT TEST 
MOV erpeL fet TC gee TEST CONTROL INDEX 
a MOV aST SET THE STACK 
HOV ene T {POORESS 
a 2 a 
NOP : OAS ORACAT ON MAY CHANGED TO A HALT TO INSPECT 
; TPRENt non FUG PROGRAM OPERATION 
BeO Ets icrep Ire 
BIT #81T14, aSWR ios i 
me iS rieepeme 
64S: cLR ERR fay “THE _DEROR FLAG 
END3: SCOPE ;PASS COMPLETED 
;THIS TABLE CONTAINS THE SUBTESTS TO BE PERFORMED BY TEST 3 
T : TEST WRIT RING 
ABLE3: TEST ie 
TEST 





gana 
DD DH 


BOE be 


"OVER EVEN PARITY 


5 AERA RRR E RRR EERE TEST 4 RRR RRER RRR RARER EEE PEER EES 


SEQ 0035 


a 


KO3 


CZTR MACY11 30(104 4-DEC-77 12: 37 | 
&3t . HED 14-DEC- 45) 13:19 eS ROUTINE SEQ 0036 — 
;# TEST GROUP 4 
i - ij : SES EE 
5° et KRHRAAAARRKE 
1$1 32% * 
1520 is TEST 4 
ibee aerrrrrti ttt 
1 o1 012737 oo0004 oo1ees +ST4: Mov #4, J8TSTNO ;LOAD THE NUMBER OF THIS TEST IN THE INDICATOR 
1 1 12737 012146 OOlel6 MOV aréte NEXT ‘POINT TO THE START OF THE NEXT TEST 
1 1 16737 Olel 001302 MOV STABLEY, TC :SET Test CONTROL INDEX 
i } 1 001 MOV #STACK, SP :RESET THE STACK 
1 1 013737 001302 001250 5 MOV TC, TSTPTR 
1529 12064 O1 302 MOV TC; RS ;SET DEROR TEST ADDRESS 
1 1 ppdaDS 001302 ADD #2,TC :POINT TO NEX TEST 
1332 : : 000000 oad JSR PC; a(RS) :PERFORM THE TES 
1 121 000240 ° NOP ;THIS LOCATION MAY BE CHANGED TO A HALT TO INSPECT 
1834 ; E PMENT STAT US OR OR PROGRAM OPERATION 
1 12104 005737 o012s52 TST ERR ; THE 
1536 1211 1 BEG 64S :SKIP IF ROR 
1 lel 040000 167062 BIT #B81T14, aSWR :TEST L I 
1538 ot 1 OO1s BEQ 64S ?BRANCH IF CLEAR 
1 lel 1 012056 IMP AAA : JUMP IF 
1546 1elee 905037 001252 64S: CLR ERR >CLEAR AR THE ROR FLAG 
1541 Olel3e 1 BR ARA 700 NE ES 
ie 12134 104400 END4Y: SCOPE 3PASS COMPLETED 
1544 
154s 
1245 ;THIS TABLE CONTAINS THE SUBTESTS TO BE PERFORMED BY TEST 4 
1548 012136 o12646 TABLEY: TESTC WRITE 
1549 012140 014764 TESTO ire HINO BRD brie. LTE ID BLOCK 
1580 Olelue ge7e19 I STXX j3WRITE, ERASE REV, READ AND TEST DATA 
1552 
1323 eee GROUP Sn TEST S SERRE RARRRRRERREAA RHE RREKRREREE 
1335 ij : + mea cman aaa ananitia i acatramnaas aca acas imma auaancmaccummanata tte 
g s RRRKKRREE 
1557 2% * 
1558 tie TEST S 
15s9 3% 
123 aetrrtrt tr ttt 
1561 01214% 012737 oOo000S ool226 STS: MoV #S, J8TSTNO ;LOAD_ THE NUMBER OF THIS TEST IN THE INDICATOR 
1bbe 12154 232 O1e316 O01816 MOV se. NEXT ;BOIN NT He THE START OF THE NEXT TEST 
1563 i i é 16701 BIT aSWR j SKIP THIS T 
1 lel 012266 Ne ra ta i YES 
1 12176 01 012308 001302 1S: MOV STABLES, TC :SET TEST CONTROL INDEX 
1567 : ‘ 1 001 MOV sSTACK, SP :RESET THE STACK 
1569 15518 0137 001302 001250 me MOV TC, TSTPTR 
1570 Oleel6 013705 001302 MOV . ;SET DEROR SUBTEST ADDRESS 
1571 Olee22 062737 O00002 001302 ADD #2; TC ‘POINT TO NEXT TEST 
' 


CZTRABO MACY11 30( 1046) 14-DEC- -77 12:32 PAGE 38 
CZTRAB. HED 14-DEC-77 12:1 PRETEST ROUTINE 
1572 012230 004775 o0j0000 non JSR PC, a(RS) ;PERFORM THE TEST 
1874 BiSs3y oo0240 i NOP ;THIS LOCATION MAY BE CHANGED TO A HALT TO INSPECT 
1575 ; EQUIPHENT opennls, OR PROGRAM OPERATION 
1878 012296 905737 o012s2 TST ERR 
1 1 1406 “— erm BEG +, i SKIP IF NO rf 
HS Hie Te ee BE ese ict tbe 
4S: R THe ROR FLAG 
i i ae: SBP eet 
1583 Olecbs ENDS: 
138 15595 000010 166706 BIT #10, ISWR ;SKIP NEXT TEST? 
1 12276 B81053 003364 001216 MOV #. EOP, NEXT EOP 
1587 12304 104400 1S: SCOPE ;PASS cobseere? 
1369 ;THIS TABLE CONTAINS THE SUBTESTS TO BE PERFORMED BY TEST 5 
1591 012306 013626 TABLES: TESTI ; REW ND THE 
tes Giesle fete fee [ies he ep 
1598 12314 612266 E 
128 + ptetatatatel +--+ iaf-+-+-b- tai TEST GF RRRRRRKRRRERERARLERREREREEREES 
1838 s REKKARKRKKKRASEKAAKRAKRAKRAHSASARASE SAAR RASRAESARRREAARRRRARRARRRRREE 
1 3: avseeeditt 
1e6t iis TEST & 
1602 3: 
1B53 012316 012737 oOO00006 o01226 +ster nov #6, J8TSTNO OF THIS Test J IN, THE INDICATOR 
1605 O1e3e4 Gl 37 3364 O01 d mov # EOP NEXT a "19 THe 10 THE ENO FpAsS HANDL 
1 12737 O01 01 v #TABLE6, TC TEST CONT 
1607 012340 012706 001200 - MOV #STACK, SP RESET THE STACK 
° INSTR TR 
iets Slene apsgs EETBoo ak THEY PU, 
igie 15362 1st ite TLE i that vent ROU RESPONSE 
161 1235 1 TESTXX mA ete SPECTED REPONSE 
1614 12356 12520 TABLE6 T 
161s 1 1 -BYTE : mee Peete Bits F "FOR THIS PARAMETER 
1Bi5 Bisse 12737 012520 001302 2s: aby STABLES, T 
1618 Ole3 1 166706 001250 MOV 5Tc TO aTA gona DEROR ticle ADDRESS 
ES HEA RES BE ome EE 
i i i J BE’ aCRS) ;PERFORM THE Test 
1622 012414 NOP ;THIS LOCATION MAY BE CHANGED TO a HALT TO INSPECT 
1623 ; eau NT STATUS OR PROGRAM OPERATION 
1 012416 012737 177777 ool12s2 MOV #-1,ERR 
1 o1e4e4 737 001252 TST TEST TH HE nQEROR AE FLAG 
i 124 14 Q 4§ KIP IF 
1627 012432 032777 O40000 166542 BIT #B1T14, aSWR ‘TEST LOOP BIT 


. 
————eE 


MO3 


CZTRABO MACY11 30(104%6) 14-DEC-77 12:32 PAGE 39 
CZTRAB.HED 14-DEC-77 12:19 PRETEST ROUTINE SEQ 0038 
4S ; H_IF_CLEAR 
1653 BIEN? BRON g1esee part Sok tee te 
1S SIRE . i Roca 
: END6: COPE :PASS COMPLETED 
: : ie 6 : MESTADD: .ASCIZ <377>/ENTER STARTING ADDRESS OF TEST / 
1 1 lll 1 
1 1 11 1s0S 134 
1e39 O1sei4 sili 000 sesso: 
1840 ye LEVEN 
ious 
iess ; THIS TABLE CONTAINS THE SUBTESTS TO BE PERFORMED BY TEST 6 
164S 012520 oo00n0 TABLE6: O 
1646 OleSe2 012454 END6 
‘: i —.-_-----_ : 
4 : 
1650 .SBTTL SUB-TEST ROUTINES 
1bSe ; THIS ROUTINE WAITS FOR TAPE UNIT TO GET READY OR DEROR 
18 4 ; IMES OUT AND EXITS WHEN IT DOES 
: 12524 o0s001 TESTA: CLR R1 ;CLEAR TIMER 
Lege oe = Ws Y SN" ceno 
1 1 100000 166642 I #B1T1S,aTRCR 
1660 O1 . a omen SKIP IF SET 
155 Bt —— 1 . ; NO-BRANCH 
o00200 166622 1T7,aTRCR 
1664 012560 001762 a BEQ is ; NO-BRANCH 
168 piSees 000207 , RTS PC 
1 "ayer p-<ee aspen pit egy NINN =m ct incall mama * 
: ROUT I S THE WRITE ENABLE RING 
LB + REMOVED ADS exits SEN TT I 
1835 biSeey 032777 000004 166614 sections BIT 1T2,3TRSR 
if 13574 984983 oos742 Y _ oe 
16 1 1S: ‘ 
16 12600 032777 OO0004 166600 BIT #B81T2,3TRSR 
: i na ne eS Ap ;SKIP IF ONE 
1 { ig —_ 64S 
i i 1 i6 Ol 000207 166366 rhe MOV #207 , JTPDBR ;RING THE BELL 
ipes BiSeSy 000765 ; Be 1s 


— 


meee - -_- 


NOS 
oe Vad BO5ee8? blige” 1 on 


BI SPWRCLR,@JTRCR; 
ad SPHRCLR, * aTRCR INS 
y 


= 


' DO (1 UG 
pO4000 iG6S40 65S: 
T 
;THIS ROUTINE INSURES THE WR TE ENABLE RING 
:I1S INSERTED AND EX ERIS WHE TIS 


166532 BIT 1T2,aTRSR 
Q 38 . 


* ;SKIP IF ZERO 
YPE » MINSRG 


bh be bb 


6 
$207, aTPOBR ;RING THE BELL 


° 
TH 
Z 


SSSSHASeRSSREGRAPRROROEORNS 


a ee Be be be eb 0 = ee 


oi4e0 
1 
O103 Rov 
166502 a egtT2,STRR ons OER 
B 
f ee pO2Z000 166466 BIT SBITIO,STROR as oe CLEAR 
pO4O00 1 ‘ SPWRCLR, JTRCR MASTER RESET 
23 2 BoG0e 1EE4EC css. Ee Ss we: spe HINS Tat WAT? FOR TT To CLEAR 
A en ee PIRES TEEITE, BgET 
71 16426 66S: SPWRCLR’STRCR © INS 
“3 o1g7e4 BNE ES tT WATT FOR IT To CLEAR 
217 " pees 
fi HIE UAT OBESSEHR TE AONLITY OF ne 
5 OO eet BIS SPHRCLR,ATRCR DEVICE MASTER RE 


it a aTRCR NST 
HIP NO, watt a 


ceil ute teel St 


SIVVVANy 
aca 
at: 

az @ 

r 

art 


ee ee eb bb ee 


5 

7 

5 1 

; ° Facies ERROR Skip IE Ok WAS NOT CORRECT 
eae 013024 1S: 

ft en ee ee gs 

732 013042 104000 ERROR ;ERROR-BIT WAS NOT CORRECT 
739 013044 es 





CZTRABO MACY11 30( 1046) 
CZTRAB. HED 14-DEC-77 1 
«tae 
Pe 013044 052777 oO20000 
«TR Bie Sotgar 
| ie & ‘ 
| 1747 013064 
1548 
Ivey Biaee? B3777 BBS088 
1751 O1 777 G20000 
1752 913109 001401 
1783 0131 04000 
1754 
1755 013104 
i785 
1526 013104 052777 030000 
1759 01311 777 030000 
1760 0131 1001 
i7eb 013122 000 
1763 013124 
1765 013124 030000 
es Bilas Bataoy OOM 
1768 pi stds 1040: 
1770 013144 
1774 013144 000207 
177, 
1773 
1774 
ae 
17 
1778 013146 012737 000340 
1779 013154 777 000100 
1780 013162 777 000100 
1781 013170 001003 
1782 013172 104000 
1788 013174 104403 006100 
1785S 013200 
1786 013200 000207 
1787 
1386 
1734 
17 
1793 013202 
i794 013202 042777 000100 
1795 013210 032777 000100 


ST etch le: 
:19 


166330 
166322 


166270 
166262 


166250 
166242 


177776 
166220 
l66e2le 


B04 


32 PAGE 41 
SUB-TEST ROUTINES 


TESTF: 


1S #020000,aTRCR ;SET_UNIBUS EXTENSION BIT 17 
BIT #920000, ITRCR j TEST UNTBUS EXTENSION BIT 17 
ERROR tERROR-BIT WAS NOT CORRECT 

c #020000,9TRCR ;CLEAR THE BIT 
ad #20000, JTRCR :TEST THE BIT 
BEQ 4g :SKIP_IF OK 
ERROR tERROR-BIT WAS NOT CORRECT 
e , aTRCR ;SET BOTH EA BITS 
Bt? #30000" STRCR :TEST BITS ON 
BNE S$ 
ERROR 
BIC #30000, JTRCR ;CLEAR EA BITS 
BIT #30000, STRCR :MAKE SURE 
PRROR 
RTS PC 


;THIS BOUT IMS "8 THE INTERRUPT BIT AND TESTS IT 
370 INSURE I ET 


nov Hs VEL7, PS. ;SET PRIORITY TO 7 
B T SEITE’ STRER 
i$ ;SKIP_IF SET 
ERROR anes :ERROR-BIT WAS NOT CORRECT 
, 
RTS PC 
$2 + nn nn ree 
j THIS ROUTINE CLEARS THE INTERRUPT ENABLE AND TESTS 
’ 
BIC #B1T6,aTRCR 
BIT #BIT6,aTRCR 


CO4 


@ 
<= 
wo 


CZTRABO MACY11 30(1046) 14-DEC-77 12:32 PAGE 42 | 
| CZTRAB. HED 14-DEC-77 12:19 SUB-TEST ROUTINES SEQ 0041 
| 1599 ee teres PRR - + PRROR-BIT WAS NOT CORRECT 
| es 813559 18u983 006124 FSBeR ,MIDSFL 

i 013226 1S: 
1801 013226 005037 177776 CLR PS ;SET PROCESSOR PRIORITY TO 00 
ies 013232 000207 RTS PC 
ee eee eee ee nS "Tn 
ts ; THIS ROUTINE TESTS THE FUNCTION OF THE POWER CLEAR 
1 013234 TESTG: RESET 
1 13236 012777 o00026 166136 Br ' 4aTR = ;SET COMMAND REGISTER 
aiee 
18t igen 1 093 00 Vv a- tag ;SET DELAY 
181 1 1S: 
181 1 1 INC Ri ; DELAY 
: 14 1 1376 BNE is : CONT INUE 
1 1 1 004000 166112 IT #B1T11,aTRCR 
181 613276 1001 BNE 2s ;SKIP_IF SET 
1818 1 104000 ERROR tERROR-BIT WAS NOT CORRECT 
ies? 013274 2s: 
1 13274 001240 MOV HOLD, (PC)+ :PICK UP TIME PARAMETER 
1863 : Bhao80 bus: .WORD oO’ ; = THIS toro’ AS me TERE COUNTER 
1825 O1 ooc000 : INC #0 TICKS 
Hs BRE BE o1s200 pe OBE sie Tans STeneep fect tome emt 
i i 18 1 al ee Has NON Heat EL 
1 1 001240 , MOV HOLD, (PC)+ ;PICK_UP TIME PARAME 
! i Bhaa80 623: .WORD O oy THIS toRo’ Ac Me The COUNTER 
1 1 oo0000 ; INC #0 TICKS 
1 1 1 BNE 69S j HAS Has THE TIME” EXPIRED? TE ENO, LOOP AGAIN 
1 1 013322 DEC 675 *HAS THE TOTAL TIME E 
: 001372 BNE 695 ure NOnGO WAIT A ete PBRGER 
1 8g: 
1 032777 oOO4000 166034 BIT #BIT11,aTRCR 
1840 O01 403 BEQ 4§ ;SKIP IF CLEAR 
1 i 010560 INC TEMP 
: 13354 1371 BNE 3s ; DELAY 
1B44 013356 4S: 
1846 013356 032777 OO4000 166016 BIT #B1T11, aTRCR : or hie 
1848 8} 3ee Ob40 PRgor ‘Pk OR-BIT WAS NOT CORRECT 
i 
1 


oO 
ra 
W 
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: 
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DO4 


14-DEC-77 12:32 PAGE 43 
SUB-TEST ROUTINES 
002000 166010 IT #81T10,aTRSR 
Bhe He : ;SKIP IF ON LINE 
RTS 
6S: 
65774 Hoy STRCR, RI oem GET _ COMMAND REGISTER 
37 T T 
002200 Bra 8 #2200, aie s TERE COMMAND REGISTER 
002200 v 200,R5 
MOV Ri, RY’ 
001402 001244 HOV FReR, REGIST 
ERROR 1 ; INCORRECT REGISTER MATCHUP 
006151 TYPEF ,MPCFL 
7$: 
29 oy HBSS. an idenrBD Bie 
oro R eer STATUS REG ESTER 
002247 #2247,RS 
001406 001244 Oy Phar REGIST 
ERROR ee. ; INCORRECT REGISTER MATCHUP 
TYPEL 
8$: 
RTS PC 
THIS ROUTINE 1S USED TO TEST THE FUNCTION OF WRITINGA ID — 
:BLOCK FROM LOAD POINT AFTER LOAD POINT 
TESTH: 
014764 PC, TESTO 
026610 JSR PC; TESTCK 
027546 JSR agRYtT $33 
: : TION 
ee es ia 
. WORD ; 
142632 165652 CMP #142632, @TRCR TEST COMMAND REGISTER 
BEQ i SKIP IF OK 
14 MOV 
b8i40 001244 NOV River 
ERROR ; INCORRECT REGISTER MATCHUP 
006170 TYPEF 1 AWIPLFL 
1S: 
on2000 165622 CMP #2000, JTRSR ;TEST THE STATUS REGISTER 
BEQ 2s :SKIP IF OK 


SEQ 0042 


> 


i3eve Bibros TeebiO 
013737 001406 


SPIRE 28" POE 


a3 i 
Oo oO 


flee 


OWOWDWDWVDWWUW 
ey ee a ee ara 
o000 


WO NOU £Wwl-O 






























GOoO00000 920000000000 


bh 


PR AUS EE ES Sete Ay rca ce eS PALS 


R 
wi 


DDDD0DDDD 9000000004 00-0:0-0,9:0:0:.0000 000000000 :0.0,0,.000.0.0.0.0.0.0.0.0,00 
RRR 


e 
: 
g 
8 
R 


052777 o004000 
777 004000 


13626 
1 052777 004000 
1 53 
13642 06 
1 DO 
1 DO 
ieee Be 
DOO 
BAS 
yy DC 
03 
ws 
76 OS 
03 
le 
14 


8 
St=t=ti] 
Ee 
To 
ain 
on 


001244 


165522 
165512 


165476 
165470 


165446 


001244 


165416 


001244 


EO4 


32 PAGE 44 
SUB-TEST ROUTINES 


65S: 


ASI: 


BIS #PWRCLR 
BIT #PWRCLR, JTRCR 
oe 64S 


BEQ 
BIS #PWRCLR, 
BNE #PWRCLR, JTRCR 


MOV #2000,RS 


TRSR, REGIST 


»@TRCR 


TS PC 


tnt TS ROTO BOT THE F 


OINT WIS TS 


BIS #PWRCLR, ITRCR 


#PWRCLR, JTRCR 


-WORD O 
BIT #BIT1,aTRSR 
BIT ZOt 1S, STRSA 


aTRCR 


83220, ATRCR 
#3220,RS 
TRCR REGIST 
YPEF 1 ARULPFL 


STAGAS=STAGAS+1 
CMP #2040, aTRSR 


Q 
v #2040,RS 
MOV RSR’RY 
MOV RSR, REGIST 
ERROR 
YPEL 


STAGAS=STAGAS+1 


; INCORRECT REGISTER MATCHUP 


;DEVICE MASTER RESET 
; INSTRUCTION CLEAR ? 
;IF NO, WAIT FOR IT TO CLEAR 


Beater aren BeaeT 


3 IF NO, WAIT FOR IT TO CLEAR 


Fiwerzon 
> BUS DODRESS 
;TEST COMMAND REGISTER 


; INCORRECT REGISTER MATCHUP 


;TEST STATUS REGISTER 


; INCORRECT REGISTER MATCHUP 


SEQ 0043 


FO4 





CZTRABO MACY11 30(104%6) 14-DEC-77 12:32 PAGE 4S 
CZTRAB. HED 14-DEC-77 12:19 SUB-TEST ROUTINES SEQ o044 
1964 
1965 014014 004000 165360 BIS SPWRCLR,@TRCR ;DEVICE MASTER RESET 
1966 thet 935555 004000 165352 64S: BIT #PWRCLR; JTRCR OFS TRUCTION CLEAR ? 
1 914039 O01374 BNE 4§ ‘IF NO, WAIT FOR IT TO CLEAR 
136 14 7 T 
1970 5 $-------------------------------- +--+ -- +--+ ------------ ---------------- 
1971 
1378 ;THIS ROUTINE TESTS THE FUNCTIONS OF ILLEGAL COMMANDS 
1974 01 TESTJ: 
1378 Bi dosy 013626 JSR PC, TESTI 
19 1 1212 JSR PC, ENAINT 
1 1 4es4 MOV sILCTAB,R3 sPOINT TO. THE EGAL TRUCTION CODE TABLE 
i ie oe lg, Rat abl is Een Scand ease 
fo i 4 or "7 fe nS, TRUTT AT FUN TO DO 
1 1 ooo0000 : WORD 0 fe TBUNETION 
i i 014104 JSR pC, TESTJ1 T oe a anes 
1 141 eid 1$ i Repuce a HE OR TINUE . 
] 141 RTS PC 
1 14104 012737 000030 01240 TESTJ1: MOV #30, HOLD LAY T TI 
1990 O14112 O15727 001240 MOV HOLO, (PC)+ PICK uP Ing PRRAME TER 
ie tat bus: .WORD O Bek ts ORD A TIRE COUNTER 
1 141 ooo000 : NC #0 T1ck S 
igee iat i 014116 BE é eas Te eee a 
i397 rhe i ve BNE 66S ses NON en LAPSED? 
1 iat 01 000010 001240 ‘ MOV #10, HOLD ;RESTORE NORMAL DELAY FACTOR 
1ui4e Ni7701 igse MOV aTReR, Ri re REGISTER 
141 1 O81 436 BI #1436°R1 : CLEAR BIT 
i 014152 1 Cc #14 WRI TEST COMMAND REGISTER 
141 4 BEQ As2 
141 i 142200 MOV #142200, RS 
iat i 001402 001244 HOW FaCR REGIST 
141 i6t0 ERROR s ; INCORRECT REGISTER MATCHUP 
14176 1 006264 TYPEF ,MILFFL 
2009 
2010 O14 AS2: STAGAS=STAGAS+1 
201 14 1 00 OTRSR, R1 ;GET STATUS REGISTER 
got 14 0 A 0 cH 40;R1 : TEST STATUS REGISTER 
2014 O14214 012705 oo2040 MOV #2040,RS 
e015 14 o1 198 MOV 
1 142 137 001406 001244 MOV TRSR, REGIST 
2017 014230 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
2018 14232 104404 TYPEL 


CZTRABO MACY11 30(1046) 14-DEC-77 12:32 PAGE 46 
HED 14-DEC-77 12:19 SUB-TEST ROUTINES SE@ OO4S 


iTHIs ROUTINE WR 


ITES @ END OF FILE 
!TAPE MUST BE POSITI 


MARK 
ONED PRIOR TO ENTERING THIS ROUTINE 


CZTRAB. 
east 14234 000004 AS3: STAGAS=STAGAS+1 
g 14234 go4000 165140 BIS #PWRCL R, @TRCR jDEVICE MASTER RESET 
14, 000 165132 64S: BIT #PWRCLR, JTRCR s fs LRUC CLEAR 
14 74 BNE bus NO, WAST F aa TO CLEAR 
2026 014254 OOO4O6 001012 001414 ILCTAB: .WORD ILCO3,ILCOS,ILCO6,ILC11,ILC12,ILC14 
2027 O14 o00022 000424 001030 
2038 3+ A 
;THIS ROUTINE TESTS THE DEROR CONDITIONS OF WRITING 
20 ;FROM LOAD POINT 
2034 014270 TESTK: 
cose bluery pousa? Dereae Jee RS TRVIT 
037 14309 retetee . WORD BRITE tRONCT TION 
14 177700 -WORD -100 :WORD_ COUNT 
6039 14304 031600 [WORD OUTPUT :BUS DDDRESS 
14 142602 165066 CMP #142602,9TRCR ;TEST CONTROL REGISTER 
14314 4 BEQ 4 
1431 1 MOV #142602, RS 
14 O1 165054 MOV STRCR R4 
14 001402 001244 MOV RCR, REGIST 
14 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
014 1 006310 TYPEF  ,MWLPFL 
014342 oo000S ASY: STAGAS=STAGAS+1 
1 014342 022777 OO2040 165036 CMP #2040, JTRSR ;TEST STATUS REGISTER 
14350 ce 4 BEQ AS 
14 1 oo02040 MOV #2040,RS 
4 O14 ot 165024 MOV aTRSR.RY 
14 37 001406 001244 MOV TRSR, REGIST 
O14 1 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
2057 14372 104404 TYPEL 
536 014374 oo0006 ASS: STAGAS=STAGAS+1 
1 014374 0S2777 ocOY4O00 165000 BIS #PWRCLR,JTRCR ;DEVICE MASTER RESET 
e0be g1¥sGe 777 OO4000 164772 64S: IT SPWRCLR,JTRCR ;INSTRUCTION CLEAR ? 
1441 1374 64S ‘IF NO, WAIT FOR IT TO CLEAR 
gob4 014412 000207 RTS 


cont praaia 7 171 RUNL: 5sR «PC, TESTAH 
2078 tduso 5035 7 pe AaES O14444 MOV #50. ,23$ 
2073 Oiusee 005737 O14444 2s: TST 3 

5074 014432 001001 BNE 1$ 

2075 014434 900207 RTS PC 


EST RABE’ gOSAR IGS TIRES“ 77 


00$337 


14442 


14436 
1 


1 
1 
1 
1 
1 
i 
1 
1 
1 
i 
1 


014S14 
pies 
biaess 
014534 

14S4e 

14544 
014S46 


ere EPEPeS TTS pEEEE PERE 


014S46 


BRPBSS Saco S SB IRREDRSS 
aia 
o8e 


SH 


<= 
- 


Sierceccececce 
_ 
Or 


OOOO0C00000000 


TE TSS eH Ra a am emeeee = a 
Ve 


rorururorurorororurerurororororururururururvrurururururururororu 


WwW 
= 





o14444 


027546 


003234 
003234 
164702 
001402 
006342 


002011 
002011 


164652 
001406 


013626 
027546 


143234 
143234 


661802 


006367 


002040 


164714 


001244 


164664 


001244 


164606 


001244 


164SS6 


HOY 


12: 3e PORE ouriNes 


1S: DEC 3$ 
BR 4§ 
3S: 0 
4S: 
TESTL: 
JSR RS, TRYIT 
.WORD WEOF 
.- WORD 9 
i a #3234, ITRCR 
ROW 34, RS 
MOV STRCR’ RY 
HOV TRCR, REGIST 
A OPEE , MEF FL 
ASE: STAGAS=STAGAS+1 
CHP #2011, aTRSR 
v 1,R5 
MOV 5 Rak’ RY 
MOV TRSR, REGIST 
RROR 1 
YPEL 
AS?: STAGAS=STAGAS+1 
RTS PC 
’ 
;THIS ROUTINE ROUTINE TESTS THE 
:OF FILE MARK FROM LOAD POINT. 
TESTM: 
JSR PC, TESTI 
JSR ae 
“HOR 
CMP 143294, , aTRCR 
BEQ 
MoV #143294, RS 
i v His eR sBarst 
TYPEF 1 NWELPFL 
AS1O: STAGAS=STAGAS+1 
CMP #2040, 3TRSR 
BEQ ASI1 


SEQ 0046 


:FONCTION 
4ee OR ER REGISTER 


; INCORRECT REGISTER MATCHUP 
; TEST THE STATUS REGISTER 


; INCORRECT REGISTER MATCHUP 


DEROR CONDITION OF WRITING A END 


HLONG "SUT 
;BUS DDORESS 
;TEST COMMAND REGISTER 


; INCORRECT REGISTER MATCHUP 


; TEST THE STATUS REGISTER 


TO4 
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CZTRAB. HED 14-DEC-77 12:19 SUB-TEST ROUTINES SEQ 0047 
1 1 002040 MOV #2040,R 
5138 Bae se eee 164544 MOV aTRSR: Ra 
1 14642 013737 001406 001244 MOV TRSR, REGIST 
1 146 164004 E 1 ; INCORRECT REGISTER MATCHUP 
: 1 1 L 
6138 014654 000012 AS11:  STAGAS=STAGHS+1 | 
140 014654 904737 013234 ISR PC, TESTG | 
141 014660 7 RTS PC | 
3143 
144 
Side Fc EAE SEE AER Ek ME aR KR NE , 
2147 ;THIS ROUTINE TESTS FOR TAPE TRANSPORT ON LINE AND EXITS WHEN 
51:8 , 
180 : 014662 A=. _ - 
sted OT aeed — TESTN: 
1 14664 002000 164514 BIT #81T10,3TRSR 
1 14672 137 A ;EXIT IF ON LINE 
186 14674 104 006435 ta YPE , MUOLN 
21 14 oo2000 164S00 ~~ BIT #81710, aTRSR 
1 14 1 BNE ASI 
tes Biarld Beige, 10560 he ig 
sis 147 6 Ol 000207 164266 we MOV #207 , JTPDBR ;RING THE BELL 
1 14 
HE: 14 AS12: TAGAS=STAGAS+1 
e166 147 : 100900 164446 BIT #81715, OTRCR 
1e3 14736 1 ERROR ;ERROR-BIT WAS NOT CORRECT 
168 147 1 006520 YPEF ,MOLEFL 
170 014744 4 AS13: TAGAS + 
5130 nytt Re9934 004000 164430 sie 4 SPORCLR, ATRCR ;DEVICE MASTER RESET 
g17¢ 014 032777 OO4000 164422 64S: BIT #PWRCLR; JTRCR j INSTRUCTION CLEAR ? 
173 0147 001374 BNE 4§ :IF NO, WAIT FOR IT TO CLEAR 
174 0147) 07 T 
176 ecceamnncnmn ween eee ennn enon nn nnn nnn n nn 222-552 ---- 5 == = == === 
1 THIS ROUT INE D TO TEST THE FUNCTION OF WRITING A ID 
Hes :BLOCK FROM EAB BaeRr THIS IS THE MAIN ID BLOCK ROUTINE 
1 14764 TESTO: 
518° Bt aeS 004737 013626 ISR PC, TESTI 
1 14770 37 027546 JSR RS‘ TRYIT sa3 
1 14774 - HORD Wibe j FUNCTION 
i 14 at - *WORD COUNT 
2185 O1 9900090 * WORD :BUS DODRESS 
2186 O1 022777 002632 164372 CMP #2632, ITRCR : TEST COMMAND REGISTER 
2187 O15010 OO141e BEQ ASI4 
| 


JOY -: 


CZTRABO MACY11 30¢ ) 14-DEC-77 12:32 PAGE 49 
SSTRAB HED. yacoee o> 13219 SUB-TEST ROUTINES SEQ 0048 
1 1s012 Ot 0026 MOV #2632,RS 
1 1 1 164 MOV JTRCR, RY 
1 1 137. 1402 001244 MOV TRCR, RECIST 
1 r 1 ERROR ; INCORRECT REGISTER MATCHUP 
1 1 1 006541 YPEF ,MWILPFL 
1 
134 018036 000015 ASI4:  S$TAGAS=STAGAS+1 
«8138 Ot 2777 002021 164342 CMP #2021, 2TRSR ; TEST THE STATUS REGISTER 
| Bt 1 4 BEQ ASI 
| ggg 1 1 002021 MOV #2021,RS 
| BT 1 1 164330 MOV STRSR, RY 
1 3737 001406 001244 MOV RSR, REGIST 
15064 164001 RROR 1 ; INCORRECT REGISTER MATCHUP 


AS1S: STAGAS=STAGAS+1 


015070 000207 RTS PC 


BeeSNaSeS 
z 
a 
: 


UND 
= Hi 
OO0000000000 O0000 2000 GO000 


Fl 
2210 5 rn ern nnn * 
1 : THIS ROUTINE IS USED TO TAKE THE TAPE UNIT OFF LINE 
ete SUSING THE OFF LINE C 
2214 
at 5072 TESTP: 
1 004S37 027546 JSR RS, TRYIT 533 
Bat 5100 aera op OFLINe eCT ION 
gel3 000000 ‘WORD O :BUS DDDRESS 
22 o4 002000 164274 IT IT10,a3TRSR 
$5 t2 901403 gogo 
A 149 1 ERROR ;ERROR-BIT WAS NOT CORRECT 
16 1 006603 YPEF  ,MUNOFLN 


7 AS16: TAGAS=$TAGAS+1 
100000 164252 IT $5; /- 5. etme 
1 ERROR ;ERROR-BIT WAS NOT CORRECT 


TYPEF ,MOFLEFL 


AS17: STaGAS=S Toor: 
164234 Is #BIT11,aTRCR 
HOLD, (PC)+ 


aed ed ed aed a de Od nd ed ed nd a eg ee ee 
UU) un) 
Ree eee eee ee eee 


PISERSLMESS VRBVV 
a F 
: zB 9 


MOV Pc ;PICK_UP TIME PARAMETER 

5 64 : . WORD :USE THIS LORD AS A TIME COUNTER 

005227 ‘ INC #0 :IF NO,COUNT 1 OF 65535 TICKS 
22 13 BNE 66S :HAS THE TIME EXPIRED? IF NO, LOOP AGAIN 
22 015152 DEC 64S ?HAS THE TOTAL TIME ELAPSED? 
ged 1372 aa BNE 66S :IF NO,GO WAIT A LITTLE LONGER 
2e42 004737 014664 " ISR PC, TESTN 
2243 052777 OO04000 164200 BIS #PURCLR,JTRCR ;DEVICE MASTER RESET 


KO4Y 


CZTRABO MACY11 30( 1046) A patil 12:32 PAGE SO 
CZTRAB. HED 14-DEC-77 12:19 SUB-TEST ROUTINES SEQ 0049 


: 01 0 032777 OO4000 164172 67S: BIT SEWRCLR, ITRCR ; INSTRUCTION CLEAR? anes 
bissi9 pBd307 BNE PC . . 


| 
ee) - nen * 
$s :THIS ROUTINE TESTS THE OFF LINE FUNCTION OF POWER CLEAR WHILE 
SREWINDING THE TAPE 
i iy 12737 026 027536 _— MOV #GOEOT, USEA SET FUNCTION 
1 i 3 900066 027540 MOV #-0, USEB ;SET WORD COUNT 
1 27 027542 MOV #0, USEC :SET BUS ADDRESS 
1 7 JSR PC’EOTTST 
1 001 MOV HOLD, (PC)+ K_UP TI PARAME T ER 
e259 i bus: ; 0 THIS A TIME COUNTER 
1 ° NC #0 535 rics 
Se ae om ef por BER Lor sc 
2264 i 1 on BNE 665 :IF NO,GO WAI Tift ELaPse seo eR 
Seee 1 1 001240 : MOV HOLD, (PC)+ ;PICK UP TIME PARAMETER 
1 Shoo 67$: .WORD O ;USE THIS WORD AS A TIME COUNTER 
1 oo0000 ’ INC #0 ; IF _NO TICKS 
i 015270 BEE £35 tae te tin TI LaPSED? oe oe 
i 1 _ BNE 69S ;IF NO, Hee L 
1 001240 ; MOV HOLD, (PC)+ -PI PARAME 
i ‘a pa3n50 70s .WORD oO ; THIS rig Pa ee Tine COUNTER 
15314 oo00000 : NC #0 ;IF_NO 
BA HES BLED orsaie ei tes TH Vile SHAE opel or em 
55a i 1 - BNE 7 ;IF NO ate rHte LONGER 
GONG03 JESES2 ras. GAP © SEURGLAVHTRGR ORSTRECINGNE Beat? 
1 1 : BAe tf NO, WAIT FOR IT TO CLEAR 
i 027546 SR Re TRYIT ae 
1 1 .WORD REWIND > FUNCTION 
é 15354 - WORD -0 WORD T 
1 “WO 0 >BUS ss 
g 1 052777 OO4000 164014 BIS #BIT11,aTRCR 
1 001240 MOV HOLD, (PC)+ ;PICK_UP TIME PARAMETER 
Bas i BAa080 rus: .WORD O af 3 THIS ibRo’ Ae OT IME COUNTER 
eo Ol oooo00 , NC #0 ‘Nas NOC OUNT 1_OF 65535 TICKS 
1 BNE 76 Has THE Ty IME EXPIRED? IF NO, LOOP AGQIN 
154 015372 DEC 74 TOTAL TIME ELAPSED? 
ges 1540 13 755 BNE 765 He Nor GO WAIT A LITTLE LONGER 
5539 015410 022777 oO04020 163764 ° CMP #4020, JTRCR athe COMMAND REGISTER 
| | 
| | 


EFTRAB-HED aa-Dee-#7 12:13 Sue TEST ROUTINES 


2300 015416 001412 


ee Te ae 
aus 

18440 1 006661 
015444 


1 


= 
: 
= 


Pp se 


pe SUSE Ley y g 
aie 


NOU CWE 


ob bb 


rt 
ba pene 


Sees 
£oO 
ooo 

ERS 


as 


) 
ul 


— 
£ 
_ 
~ 


ae 
0008 

a 

ne 


° 
j 
Tt 


peeeereeets 

erie 
BG 
a 


i 


turvrurororururorurorurururorur 


oe 


Se ne - 


001244 


163734 


001244 


001244 


001244 


163622 
163612 


1e38c4 


AS21: 


64S: 


a 
*THIS ROUTI T 
*MAG TAPE UNIT AND REPORT 


v Teen REGIST 
TeREE , MRWOFL 
STAGAS=$TAGAS+1 
cne SL, TRSR 


STAGAS=STAGAS+1 
ist aTRBA 
Q AS22 


ERROR 


TYPEL 
STAGAS=STAGAS+1 

TST aTRWC 
ro 

MOV aTane ay 
MOV TRHC, REGIST 


FYPeL 
STAGAS=STAGAS+1 


IT #BIT1,a3TRSR 


I #81TS,3TRSR 
eee BC TESTN 
Bie Seance. grace 
’ 
Bye OBS 


CHECKS 


; INCORRECT REGISTER MATCHUP 


; TEST THE STATUS REGISTER 


; INCORRECT REGISTER MATCHUP 


;TEST BUFFER ADDRESS 


; INCORRECT REGISTER MATCHUP 


; TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


;WAIT FOR REWIND TO FINISH 
;WAIT FOR LOADPOINT TO SET 


PSS MEBTEE RSET 
, 


, WAIT FOR IT TO CLEAR 


TA JUST READ BY THE 
OR SA aNY DERORS THAT EXIST 


SE@ 00s0 


MO4 
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CZTRAB. HED 14-DEC-77 12:19 SUB-TEST ROUTINES 
5385 ; THIS oROUTINE ALSO CLEARS THE INPUT AREA AFTER TESTING 
, 
Bisse 1 reat TESTS: MOV SINPUT RL i SET INDEX 
1 i 3808 - HOV ryt i aET HP EN ORD COUNT 
=. 
ae nee: rae ee OR, aRe ;TEST INPUT 
Fe Hee 010137 001244 MOV R1, REGIST 
3 Bieees 1 amen ERROR 1 - ; INCORRECT REGISTER MATCHUP 
1ezz6 6 MOV alee 
Ee proroc nnn nnnn- CONYVRT CALL SHOULD GO HERE 
a : TAGAS=S$ TAGAS+ 
5354 BieeeS BO0068 Sen: BT STRT Se tR2)+ —«; ADVANCE INDEXE 
2375 015664 005203 INC R3 ; INCREMENT WORD COUNT 
015666 001363 BNE A :CONTINUE TESTING INPUT 
015670 012700 035640 MOV #INPUT, RO ;SET INDEX 
15674 O01 177000 MOV #-1000;R1 :SET COUNTER 
= 015700 00 ases: STAGAS=STAGAS+1 
015700 ak CLR (RO)+ ;CLEAR INPUT AREA 
01570e N a :CONTINUE CLEARING 





s+ 
TH s of PTE CHECKS THE FUNCTION OF SPACING REVERSE OVER A 


rerrrireer eerie 


eae ois732 ONY nov #50. ,3S 

OI 714 05737 era 2s: TST = 

1 1 BNE 1$ 

i RTS PC 

i 630401 015732 1S: DEC 3 
04 1 : 
2240S 015734 as: " 
2406 
ie Bt 5 027546 TESTU: icp RS, TRYIT sas 

740 1410 . WORD BBAcER > FUNCTION 

2410 015742 O00000 ‘WORD -O :WORD COUNT 
2411 015744 900000 "WORD O :BUS DDDRESS 


a a! OS 


GSTRAB HED yacoee-9> abs19° 1”? Eye PeS1 ROUTINES 


NO4 


12 003610 163426 CHP #3610, 3TRCR 
14 003610 MOV #3 610, Re 
ig bgisoz 001244 HOV TACK, REGIST 
1 006727 FReE » MSREFFL 
AS26: STAGAS=STAGAS+1 
002011 163376 CNP #2011, aTRSR 
002011 MOV ® RS 
163364 MOV ‘ RY 
001406 001244 HOV RSR, REGIST 
TYPEL 
AS27:  STAGAS=STAGAS+1 
163356 TST aTRBA 
ROW 
ibaa MOV gTREA RY 
1416 001244 MOV TREA, REGIST 


TYPEL 


AS30: S$TAGAS=STAGAS+1 





wre 





; TEST COMMAND REGISTER 


; INCORRECT REGISTER MATCHUP 


; TEST THE STATUS REGISTER 


; INCORRECT REGISTER MATCHUP 


; TEST BUFFER ADDRESS 


; INCORRECT REGISTER MATCHUP 


005777 163322 ‘ TST aTRWC ; TEST THE WORD COUNT 
4 BEQ AS31 
1 MOV #0 fA 
teas 19737 dbl4is oo1e44 HOV. RUC. REGIST 
sig Bt 11 feuds FRROR 1 . ; INCORRECT REGISTER MATCHUP 
1611 1 YPEL 
016114% 900032 AS31: STAGAS=S$TAGAS+1 
016114 000207 RTS PC 
uy + ee ee we ee we a a ee a a ww we ww a a a a a a a a a a a a a a a a a a ww aw ew er wr er wr wr wr eer eee eee 
Buss ; THIS ROUTINE CHECKS THE FUNCTION OF READING A END OF FILE 
16116 RUNV: 
1611 12737 oOO00062 016142 MOV #50. ,3S 
161 737 016142 2s: TST 3 
161 1094 NE 1 
161 02 RTS PC 
1Ptaa 37 016142 1S: DEC $ 
1 tas 01 BR 4§ 
4 pie 3$: 0 
Ss 16144 4$: 


BOS 


~ CZTRABO MACY11 Frew S me 2 ie” -77 12:32 PAGE S4 


| Sets. HED SUB-TEST ROUTINES 
16144 027546 JSR ApRYIT sa3 
161 . WORD : FUNCTION 
161 : WORD :WORD COUNT 
7 161 . WORD :BUS DODRESS 
: : ; 002204 163216 cnr ee, , aTRCR :TEST COMMAND REGISTER 
74 O161 1 002204 MOV #2204, RS 
75 O161 1 63204 MOV @TRCR.RY 
38 1 37 1402 001244 MOV TRCR, REGIST 
1 RROR 1 ; INCORRECT REGISTER MATCHUP 
fe i 1 006771 YPEF ,MREFFL 
016212 000033 AS32:  STAGAS=STAGAS+1 
1 002011 163166 CMP 11,3TRSR -TEST THE STATUS REGISTER 
ee 1P538 1410 BEQ Ass ; 
84 Olbee2 Ol 002011 MOV #2011, RS 
Bs 1 1 163158 MOV THR 
1 3737 1406 001244 MOV RSR, REGIST 
4 1 108001 ERROR ; INCORRECT REGISTER MATCHUP 
83 016242 000034 AS33:  STAGAS=STAGAS+1 
3 16835 oSis(0 035640 163146 CHP SINPUT, JTRBA ;TEST BUFFER ADDRESS 
Sy 1 1 jhe 035640 BES INPUT, RS 
94 O01 o1 63134 MOV STREA RY 
1 1416 001244 MOV RBA, REGIST 
i 1 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
016272 000035 AS34:  STAGAS=STAGAS+1 
isere AeA 163114 TST STRUC ;TEST THE WORD COUNT 
16 as ooo000 MOV #0,RS 
1 1 31 Vv TRWC RY 
ss iB3i0 137 Raeye: 001244 aM FRC REGIST 
16316 04001 ERROR ; INCORRECT REGISTER MATCHUP 
1 36 AS3S:  S§TAGAS=STAGAS+1 
e508 016320 000207 RTS PC 


2510 Fasten slp pn a ge nr 
geil !THIS ROUTINE TESTS THE FUNCTION OF THE TIME OUT WHILE WRITING 
2513 TESTW: 
14 021712 JSR PC TESTAH 
2515 163052 BIC weit , JTRSR 
18 163050 oat r) TRBA t Bus Sokess ar ot START 
18 163026 MOV HH TE, STRGR Set BORMARD GISTER 
1 163020 BIS #8110, STRCR :SET T f° BI 
e500 i a CLR : CLEAR TIMER 
2522 163020 ay CLR aTRWC ;RESET THE WORD COUNT 
2523 031600 163016 MOV #OUTPUT,JTRBA ;RESET THE BUS ADDRESS 





——— ae ee; -_ = 


CZTRABO MACY11 30(1046) 14-DEC-77 12:32 PAGE SS 
SUB-TEST ROUTINES 


CZTRAB. HED 14-DEC-77 12:19 


SIEABR pape, oso 


ED ee BIB 
1 1 


016424 


| 4 osi660 162756 


162726 


001244 


001244 


162646 


001244 





bBiaie 
141le 001244 


016624 052777 OO4O0O 162550 
916632 032777 OO4000 162542 


Ht 
3 


BRR EASA Aa saa Cua aae rommropommnmmnnrage 


AS36: 


AS37: 


ASO: 


AS41: 


64S: 


COS 


mr 


at aTRWC 
SOUTPUT, JTRBA 
TEMP 


INC 

BNE 

CLR aTRWC 

MOV SOUTPUT, JTRBA 

ENC TEMP 

ere & , @TRCR 
& RS 

MOV a 

nov TRCR, REGIST 

FSROR , MWTOFL 

STAGAS=STAGAS+1 

TRSR,R1 

BIC #170000 

ee 

MOV “8 BeAr 

ERROR 

TYPEL 

STAGAS=STAGAS+1 


CMP SOUTPUT, aTRBA 
MOV SOUTPUT, RS 
v ' , REGIST 


STAGAS=STAGAS+1 
TST TRWC 
BEQ le 
MOV the, REGIST 
RROR 
YPEL 
STAGAS=STAGAS+1 


BIS #PWRCLR, JTRCR 
BIT #PWRCLR, aTRCR 


*DELA 
;TEST COMMAND REGISTER 
; INCORRECT REGISTER MATCHUP 


STATUS 
REGISTER 


; INCORRECT REGISTER MATCHUP 
;TEST BUFFER ADDRESS 
; INCORRECT REGISTER MATCHUP 


; TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


;DEVICE MASTER RESET 
; INSTRUCTION CLEAR ? 


DOS 


CZTRABO MACY11 30(1046) 14-DEC-77 12:32 PAGE S6 
CZTRAB. HED 14-DEC-77 12:19 SUB-TEST ROUTINES SEQ ooss 
4$ ;IF NO, WAIT FOR IT TO CLEAR 
BIEES2 834927 o1yzeu isk BC, TESTO 
016646 000207 RTS PC 


!THIS ROUTINE CHECKS THE FUNCTION OF THE TIME OUT WHILE READING 
1 TESTX: 
: ; 5 A4 
’ 5a 
J ’ TESTFO 
O16664 004737 SR PC 


J TESTFO 
fae Sa = oy Tr R SET BS Bus, AODRLSS STS! 
3 fibie wee fiat iE RMI ia Hears 
BIE ue se 162444 ql ieee ; TEST COMMAND REGISTER 
gray GUINUE OoleW RCR, REGIST 


E 1 ; INCORRECT REGISTER MATCHUP 
16760 104403 007037 TYPEF ,MRTOFL 


AS42:  STAGAS=STAGAS+1 


000043 
i (a a ; 002400 162414 ee a ,@TRSR ; TEST THE STATUS REGISTER 
16774 Ql oo2400 ity es 


#INPUT, JTRBA BUS ADDRESS AT START 


RoR oeg 


1 
i 
12 i 615997 bSiupe 001244 TRS, ee Ae dIst 
ae eer : 1 Felon ; INCORRECT REGISTER MATCHUP 
ie ree sects 
ele 017016 ASH3: S&T =$T +1 
1 17016 022777 O3S5640 162372 CMP SINPUT, aTRBA ;TEST BUFFER ADDRESS 
2620 Bisbee O59411 BEQ : 
i 1 MOV 
se Was sea 1416 001244 y et REGIST 
1 i 1 ERROR ; INCORRECT REGISTER MATCHUP 
01704 104404 TYPEL 
017050 o0004s ASH4:  STAGAS=STAGAS+1 
1 777 162336 TST aTRWC ;TEST THE WORD COUNT 
17054 41 BEQ ASHS 
1 1 MOV 80 
1 177 324 MOV gTRWC RY 
13 74 1O80 1 —— owe ERROR RuC, REGIST ; INCORRECT REGISTER MATCHUP 
se3e Oto e 1Bgab4 TYPEL , 


eee eee ee 


EOS 


CZTR MACY11 30¢ ) 14-DEC-77 12: P 57 
EST RAB’ HED 132528253 132788 Big TEST ROUTINES SEQ 0056 
2636 
gb 7 017100 oo0004% ASHS:  STAGAS=STAGAS+1 
1710 777 000 162274 SPWRCLR,@TRCR ;DEVICE MASTER RESET 
Spaa i510 Oser77 BaubeD 1B8Scd cus: BI SPHRCLRUSTRCR © TINSTRUCTION CLEAR? 
seas 017118 001374 BNE 64S :IF NO, WAIT FOR IT TO CLEAR 
y 
“2 pnenti 
46 'THIS ROUTINE FORCES A NXM AND BGL DEROR WHILE WRITING 
171 TESTY: 
4 171 7 712 ISR TESTAH 
s trie 3 8532 JSR pert YIT 533 
i 0171 .WORD WRITE : FUNCTION 
Bel Bie Noe a id Nee 
71 1 001240 MOV HOLD, (PC)+ *PICK IME PARAMETER 
gb 1714¢ bug: 2 aie :USE THIS WORD AS A TIME COUNTER 
17144 oo0000 : INC #0 IF COUNT 1 OF TICKS 
171 BNE 66S ties" oO NE EXPI BP ir NO, LOOP AGAIN 
171 017142 DEC 64 :HAS THE TO TIME ELAPSED’ 
121 1372 aa BNE 66 :IF NO,GO WAI LITTLE LONGER 
171 112602 162214 ‘ CMP #112602,aTRCR ;TEST COMMAND REGISTER 
sees BiSS Bs Boy Stop rs 
17174 O1 16 2 MOV athe 
15480 37. 14 001244 MOV RCR, REGIST 
266 017 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
eee8 17210 1 007060 TYPEF  ,MWNXFL 
eb? 017214 000047 ASHE: STAGAS=STAGAS+1 
2678 1 4 e777 006101 162164 CNP #6101, 3TRSR ; TEST THE STATUS REGISTER 
74 Ol 1 006101 MOV #6101,RS 
se i3 135 TaBe 001244 HOV RoR Carer 
58 17eNe 1 1 RROR 1 ’ ; INCORRECT REGISTER MATCHUP 
28 i 1 YPEL 
2680 01724% ocoo0so ASY7:  S$TAGAS=STAGAS+1 
1 2777 000001 162142 CMP #1,aTRBA ;TEST BUFFER ADDRESS 
2 8 0 oe mie : 
1? 013937 Abide 001244 HOY Finer Be er 
eo? 17ers 104001 ERROR 1 °° ; INCORRECT REGISTER MATCHUP 
e688 17276 104404 TYPEL 
2630 017300 000051 ASSO: S$TAGAS=STAGAS+1 


FOS 


CZTRABO MACY11 30(1046) 14-DEC-77 12:32 PAGE S8 


CZTRAB. HED 14-DEC-77 12:19 SUB-TEST ROUTINES 
17 2777 000001 162104 CMP #1, aTRWC ;TEST THE WORD COUNT 
17308 05 4h BEQ Assi 
1731 1 000001 MOV #1,RS 
13 4 B15 iai8 001244 HOV PERC RY st 
17 1 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
104404 TYPEL 
STAGAS=STAGAS+1 
RTS PC 


;THIS ROUTINE FORCES A NXM DEROR USING BIT 12 


Sa 
£2 & 


0173 TEST2: 
17 7 171 PC, T STB ace 
17 Boowas 162034 MO’ ;SET COMMAND 
e711 153¢q 2777 BOOCOL 1psa5G Bie #6110 es aT8er 
8 1 1 CLR ;CLEAR THE WORD COUNT 
71 17 77 1 CLR oth RBS LEAR BUS ADDRESS 
o14 17 mr US INC aTRCR 'SE GO BIT 
1 17 MOV HOLD, (PC)+ ;PICK_UP TI PARAME 
e712 ar BAaa80 — bus: .WORD O° *USE THIS A Tne COUNTER 
7 17404 oo0000 . INC #0 
et BIS BS cmce a: tes TH Vila SHEET Fe oor mo 
57s 1m 001372 ial BNE F NO,GO WAIT A LITTLE PBNGER 
eed im z 112602 161754 . CMP 2602, 3TRCR TEST COMMAND REGISTER 
cree Biniss BLE noe ete 
5787 toy i 683405 001244 HM TRC, thie 
556 1p 164081 cashed ERROR ; INCORRECT REGISTER MATCHUP 
1 
873¢ 017454 000053 ASS2: een 
eres bare O11 006101 161724 CNP #6101, ATRSR ; TEST THE STATUS REGISTER 
7 1 aes 1 006101 MOV #6101,RS 
53 pt edoa 515593 bBi4de 001244 eM RoR REGIST 
87 917502 : 001 ERROR eae ; INCORRECT REGISTER MATCHUP 
274 
erie 017506 oo00S4 ASS3: STAGAS=STAGAS+1 
a4 017506 922777 oo0002 161702 CNP #2,9TRBA ; TEST BUFFER ADDRESS 
2746 017516 012705 oo0002 MOV #2,RS 
2747 017522 017704 161670 MOV aTRBA, RY 


GOS 


CZTRABO MACY11 30(1046) 14-DEC-77 12:32 PAGE 59 
CZTRAB. HED 14-DEC-77 12:19 SUB-TEST ROUTINES SEQ o0se 
erg 01 013737 OO01416 001244 MOV TRBA, REGIST 
4 1 1 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
017536 104404 TYPEL 
017540 ooooss ASS4:  STAGAS=STAGAS+1 
4 017540 022777 O00001 161644 CMP #1, sTRWC ;TEST THE WORD COUNT 
5 i 12705 000001 mat asés 
757 17554 01 16163¢ MOV ataue RY 
1 137 1412 001244 MOV RWC, REGIST 
e759 017556 194001 RROR 1 ; INCORRECT REGISTER MATCHUP 
36 i 1044 YPEL 
eres 017572 oo000s6 ASSS: STAGAS=STAGAS+1 
2764 017572 OS” 004 161602 BIS #PWRCLR,JTRCR ;DEVICE MASTER RESET 
2765 017600 03¢777 OO4O00 161574 64S: BIT SPWRCLR;JTRCR INSTRUCTION CLEAR ? 
2766 017606 001374 BNE :IF NO, WAIT FOR IT TO CLEAR 
6767 017610 RTS PC 
e7 § nn nen enna nnnnna * 
6770 :THIS ROUTINE FORCES A NXM DEROR USING BIT 13 
27 1761 TESTAA: 
$078 15ei5 004 021712 JSR PC, TESTAH 
774 017616 161556 MOV MUR ITE, ATROR ;SET COMMAND 
1 161550 BIS #81 pf TRCR 
1 1 161546 BIC #BIT0, aTRSR 
55a OtseNs Bpeoee «teteue cLRSTROA CL ERR BUS ADERESS( 
6779 bt Fedo 005277 161526 INC @aTRCR :SET GO BIT 
278i 176 001 MOV HOLD, (PC)+ :PICK UP TIME PARAMETER 
5s 617660 BA 3080 ae bus: .WORD O° : THIS AS A TIME COUNTER 
7 1 5 ry ; IF 1 OF TICKS 
aa te 1 — BNE bes es one Time ESPIREB? IF NO, LOOP AGAIN 
786 176 005. 017660 DEC 64S :HAS THE TOTAL TIME ELAPSED? 
e7 17674 001 oak BNE 665 :IF NO,GO WAIT A LITTLE LONGER 
2783 17e7e e777 122602 161476 : CHP #122602, TRCR ;TEST COMMAND REGISTER 
79 O1770e 13708 MOV x RS 
1771 1 161464 MOV 
27 0177 6 0137 001244 MOV TRCR, REGIST 
2794 0177 1 O1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
73 0177 i 007157 TYPEF ,MNXBFL 
6737 017732 000057 ASSE: STAGAS=STAGAS+1 
6799 17732 2777 006101 161446 CMP #6101, 3TRSR ;TEST THE STATUS REGISTER 
17740 1411 BEQ ASS? 
2801 017742 01271 006101 MOV #6101,R5 
2802 017746 017704 161434 MOV aT 4 
2803 0177S2 013737 001406 o01244 MOV TRSR, REGIST 


HOS 


CZTRABO MACY11 30(1046) 14-DEC-77 12:32 PAGE 60 
CZTRAB. HED 14-DEC-77 12:19 SUB-TEST ROUTINES SEQ 00S9 
2804 017760 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
280S 017762 104404 TYPEL 
ce 017764 000060 ASS7:  S$TAGAS=STAGAS+1 
017764 022777 oOO00002 161424 CMP #2, JTRBA ;TEST BUFFER ADDRESS 
2810 017776 o014 BEQ ASEG 
2811 017774 T2705 ooo0002 MOV #2,RS 
TE Bier} OBISIE oie en ei 
i 1 ERROR 1 ° ; INCORRECT REGISTER MATCHUP 
egis 020014 104404 TYPEL 
1? 020016 000061 AS60: STAGAS=STAGAS+1 
S e777 000001 161366 CNP #1, aTRHC ;TEST THE WORD COUNT 
1 000001 MOV #1 Fs 
1 1354 MOV ; RY 
137 1412 001244 MOV RWC, REGIST 
2824 O20044 104001 ERROR ; INCORRECT REGISTER MATCHUP 
G20046 104404 TYPEL 
o20050 o00062 AS61: S$TAGAS=STAGAS+1 
Geese eerr? GONGSG IE1SiE ous. LF GRAAL ETRE (TERRES IRENE BESET 
583? tees 374 , Bie 4§ i EPShG RucTAgT EGBA a TO CLEAR 
2832 O20066 000207 PTS PC 
* 
s83¢ ?THIS ROUTINE FORCES A NXM DEROR USING BIT 12-13 
sa39 Er, 020070 . - TESTAB: , - ‘ 
5635 ead BEA AS 161300 ay LATTE, TRCR T COMMAND 
920102 777 030000 1e1e7e BIS et see vatrin’, ;SET THE EXTENDED ADDRESS BITS 
i ae ihe uf SPS 1 ca 
eC i i 1 O60 161266 HOV 81600 , aTRBA iseT Up a aN 170 PAGE REFERENCE 
sBu¢ ated R035 25 461548 MOV HOLD, (PC)+ :PICK UP time PARAMETER 
54) ec i 000000 bus: .WORD O :USE THIS WORD AS A TIME COUNTER 
ee oo0000 : INC #0 IF NO,COUNT 1 OF 65535 TICKS 
2849 de01 ied aeeneal BNE 56S i HAS THE T TIME EX EXPIRED? IF NO, LOOP AGAIN 
pal ee 154 Boiave vhs BNE «eS iP °No,GO WAIT A LITLE LONGER 
020156 132602 161216 ° CMP #132602,3TRCR ;TEST COMMAND REGISTER 
sees fesite Silvie Rog 
5 Oe01 1 132602 MOV #132602, RS 
2856 0201 17704 161204 MOV JTRCR,RG 
4 76 013737 001402 001244 mov TRCR, REGIST 
o4 i 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
2859 Oe02e06 104403 007227 TYPEF  ,MNXMFL 


CZTRABO MACY11 30(104%6) 14-DEC-77 
CZTRAB.HED 14-DEC-77 .2:19 

2860 

3 20¢ 161166 

4 02% 

S 001244 
a 161144 
2876 001244 
eae 161106 
Ses oo1244 
2891 020330 161044 

161036 
ped 
ca 
ee 


BEEBE 
WSWMe-O 


tu 
w 





IOS 


12:32 PAGE 61 


SUB-TEST ROUTINES 


AS62:  S$TAGAS=STAGAS+1 
CMP #6101, 3TRSR 
foe STbs es 
MOV *RY 
MOV oper’ REGIST 
ERROR 1 
YPEL 

AS63: STAGAS=STAGAS+1 
BIT aTRBA 
Bie ae 
MOV STARA RY 
MOV TRBA, REGIST 
ERROR 1 
TYPEL 

AS64:  STAGAS=STAGAS+1 
CMP #1, aTRWC 
Bro Sb 
MOV @TRUC RY 
MOV RWC, REGIST 
ERROR 1 
YPEL 

ASES STAGAS=STAGAS+1 
BI TRCR 

64S: BI SPURCLR, LR St RER 
BNE 
RTS eo 


; TEST THE STATUS REGISTER 

; INCORRECT REGISTER MATCHUP 
; TEST BUFFER ADDRESS 

; INCORRECT REGISTER MATCHUP 
; TEST THE WORD COUNT 

; INCORRECT REGISTER MATCHUP 


STER RE eT 
IT FOR IT "10 CLEAR 


a8 
5 

525 
: 


;THIS ROUTINE FORCS A READ COUNT DEROR WHILE READING A LONG RECORD 


TESTAC: 
JSR PC, TESTAH 
JSR PC, TESTCK 
JSR PC, TESTEK 
JSR TRYIT 
. WORD AD 
-WORD -77 
- 4ORD INPUT 
MOV HOLD, (PC)+ 
64S: -WORD O 
66S: 
INC 
BNE 66 
EC 4 
BNE 66S 
65S: 


FONCTION 


AEC 


TER 
USE THIS WORD AS AY AS A TINE COUNTER 
IF NO, COUNT 1 OF 65535 TICKS 


HAS THE TIME EXPIRED? IF eo, LOOP AGAIN 
+HAS THE TOTAL TIME at 
:IF NO,GO WOIT A LITTLE PBNGER 


SEQ 0060 


GBthaa Me ua-oee-97 ABs1a 


102204 


Bie Heese FINE sceem 
; S a 7 


160754 


001244 


160724 


001244 


160702 


001244 


eiissstecierevieme sata 
T 
at 


001244 


oo04000 160604 
004000 160576 
1374 


SUE DRE BRU 


-O 
s 
=] 


33 


JOS 


32 PAGE 62 
SUB-TEST ROUTINES 
CNP #102204, JTRCR 
MOV #102204, RS 
MOV QTRCR R4 
MOV RCR, REGIST 
ERROR 
TYPEF ,MRCFL 
AS6E:  S$TAGAS=STAGAS+1 
CMP #3001, 3TRSR 
BEQ ASE7 
MOV #3001,RS 
MOV a7 R 
MOV RSR, REGIST 
ERROR 1 
TYPEL 
AS67:  STAGAS=STAGAS+1 
CNP #INPUT+176, JTRBA 
MOV #INPUT+176,RS 
MOV 
MOV RBA, REGIST 
ERROR 1 
YPEL 
AS70:  S$TAGAS=STAGAS+1 
TST aTRWC 
Q AS71 
MOV #0 RS 
MOV aTRWC RY 
MOV TRWC, REGIST 
RROR 1 
YPEL 
AS71:  STAGAS=STAGAS+1 
8 #PWRCLR, JTRCR 
64S: #PWRCLR, JTRCR 
64S 
RTS 


; TEST COMMAND REGISTER 


; INCORRECT REGISTER MATCHUP 


; TEST THE STATUS REGISTER 


; INCORRECT REGISTER MATCHUP 


; TEST BUFFER ADDRESS 


; INCORRECT REGISTER MATCHUP 


; TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


:THIS ROUTINE FORCES A READ COUNT DEROR WHILE READING A SHORT RECORD 


TESTAD: 
I PC, TESTAH 
eR PET TESTER 
JSR Re’ Th § 
RD READ 
WORD -101 
WORD INPUT 


tEUINCTION 
SWORD. COUNT 
'BUS DDDRESS 


SEQ 0061 


KOS 


SETRAB HED. acme o> ibsis Bue FESroRouriNnEs 
v 





72 013787 001240 MO HOLD, (PC)+ ;PICK_UP TIME PARAMETER 
7 > bus: .WORD O ‘USE THIS WORD AS A TIME COUNTER 
oo0000 . NC #0 5 1F T 1 OF TICKS 
DOO BNE 66S tas THE TIME EXPIRED? IF NO, LOOP AGAIN 
o20642 DEC 64§ : THE TOTAL TIME ELAPSED? 
020 1 aa BNE 665 ‘IF NO,GO WAIT A LITTLE LONGER 
2c 102204 160514 CMP 8102204, TRCR ;TEST COMMAND REGISTER 
Bt 12708 102204 BGG $105204, RS 
' 1s? 1PEER2 MOV STRER ORS 
013737 6001402 oo12e44 MOV TRCR, REGIST 
le 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
e387 Oc 104404 TYPEL 
5354 000073 AS72:  STAGAS=STAGAS+1 
2334 1 g2e27 003001 160466 CNP #3001, aTRSR ; TEST THE STATUS REGISTER 
Vas 003001 MOV #3 1, RS 
S3ée BtS5 bBiuae 001244 aM #RER REGIST 
6238 194001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
Fed 1 YPEL 
020744 000074 AS73:  STAGAS=STAGAS+1 
3001 ve gee777 036040 160444 cne 5 NPUT+200, 3TRBA ;TEST BUFFER ADDRESS 
1 MOV ‘ T+200,RS 
OL O2Base MOV ath Ry’ 
geg7e4 37 001416 001244 MOV RBA, REGIST 
1 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
020774 1 TYPEL 
30039 020776 000075 AS74:  S$TAGAS=STAGAS+1 
920776 177777 160406 CMP #-1, JTRWC ; TEST THE WORD COUNT 


1441 . BEQ as7s 


1 1 RR ; INCORRECT REGISTER MATCHUP 
104804 ree 


S8sssssss 
ONO CWE O 
RES Re 
io 

=o 

=v 

8 

fy 

£ 

32 

<<< 

sos 

§ 

aR 

3 

po 


3019 021030 000076 AS7S: STAGAS=STAGAS+1 
1 4000 160344 BI SPWRCLR,@TRCR ;DEVICE MASTER RESET 

3554 51030 777 eta 1e533¢ 64S: BI #PWRCLR, aTRCR i OESTRUCTION CLEAR ? 

3023 Ge1044 001374 BNE 64S ;IF NO, WAIT FOR IT TO CLEAR 


ROUTINE CHECKS THE FUNCTION OF SPACING REVERSE WITH A 


N 
= 
x 
~ 
w 


LOS 


SETRAB CHE tee eee) at eeen 77 et ae eer ROUTINES 


160302 


001244 


160254 


001244 


001244 


160176 


001244 





BESE LS Waal Sd SeEMERE ER? BOM URUDN Mas cagscRseuRRTERS SNS 


;SHORT WORD COUNT 


TESTRE: Testes 
J2R Pe’ TE TCK 
JSR RS. TRYIT 


.WORD SPACER 
[WORD -77 

:WORD O 

CMP #3610, JTRCR 
my elo.es 
Nov =o STRERTRG 
MOV TRCR, REGIST 
RROR 1 

YPEL 


AS76: STAGAS=STAGAS+1 


CMP #2001,a3TRSR 
BEQ 77 


Roy S001, Rs 


MOV TRSR, REGIST 


AS77: S$TAGAS=STAGAS+1 
ist aTRBA 
Q 


my SeLee 
v RY 
HOV gh 
ERROR 1 
TYPEL 
AS100: STAGAS=STAGAS+1 


CMP gi77 708 , JTRWC 


BEQ 1 
MOV itazeh RS 
MOV gy RWC 
MOV RWC, REGIST 
ERROR 1 
YPEL 
AS101: STAGAS=STAGAS+1 
RTS PC 


:THIS ROUTINE CHECKS THE FUNCTION OF SPACING WITH A LONG WORD COUNT 


TESTAF: 


; TEST COMMAND REGISTER 


; INCORRECT REGISTER MATCHUP 


; TEST THE STATUS REGISTER 


; INCORRECT REGISTER MATCHUP 


;TEST BUFFER ADDRESS 


; INCORRECT REGISTER MATCHUP 


; TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


SEQ 0063 


CZTRABO MACY11 30(104%6) 14-DEC-77 12:32 


CZTRAB. HED 14-DEC-77 12:19 


WWW W WWW W) 


ee ee be bb a bp pe pe 


UN OoO VN £O-ODS VR LoDo 


1 
021410 017704 15 
wath 4 ? 37. : 00141e 


ra 
OTUFU 
are 


BEVRR LHe Vor 


SS Ss Sa eee Re 


160110 


001244 


160062 


001244 


001244 


160010 


001244 


157746 
157740 


157730 
157726 


PAGE 65 
SUB-TEST ROUTINES 
yen Be’ Teerex 
JSR Sacer 
Hep a? 
ere #3610, ITRCR 
MOV #2210, 8s 
Ctr TRCR, REGIST 
AS102: STAGAS=STAGAS+1 
Sho 42 ABORT SR 
a. TRSR, REGIST 


AS103: STAGAS=STAGAS+1 
Beg 42S AsioG 
HOV BA, RY 
MOV #RBA REGIST 
ERROR 1 


AS104: STAGAS=STAGAS+1 


foe a 77, JTRWC 


MOV #177677,RS 


MOV TRWC RG 
Hoy #RuC REGIST 
ERROR 1 

AS1OS: STAGAS=STAGAS+1 
RTS PC 


TESTAG: 
ws: GP PARE ITRS 
° Bie 64S 4 
MOV #GOEOT, JTRCR 
BIC #BITO, ITRSR 


RCR 


; TEST COMMAND REGISTER 
; INCORRECT REGISTER MATCHUP 
; TEST THE STATUS REGISTER 


; INCORRECT REGISTER MATCHUP 


; TEST BUFFER ADDRESS 


; INCORRECT REGISTER MATCHUP 


; TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


ice mare Ht 
ips ? FOR IT TO CLEAR 
MAND REGISTER 


oO 


Bod 
—F 


SEQ 0064 


a 


NOS 


CZTRABO MACY11 3061 4-DEC-77 12:32 PAGE 66 
CZTRAB. HED 14-DEC- > 13719 SUB-TEST ROUTINES 

140 1 1 177777 157730 MOV #-1,TRBA 

14 1 177777 157716 MOV #-1' JTRWC 

iM 14 157702 INC aTRCR 

144 Az. 

1 921500 032777 oo00200 157700 BIT #8117, JTRSR 

14 1 1774 BEQ A 

i 1510 013707 001240 MOV HOLD, (PC)+ 

iv ile he oe 

1 1 ooo000 INC i 

ie i tee 021514 DEC e 

1 1 1 BNE 

158 1 66S: pe = 

1 i Basase 157636 CMP — aTRCR 

1 1 41 BEQ 

iB ge ee Be = ime 

1 i 14 001244 HOV ore RREGIST 

ies BIEES reer 

i 1 1 007317 »METFL 

ige 021572 000107 AS106: STAGAS=STAGAS+1 

1 021 00220 7606 MP JTRSR 

ie O51e080 4 . = Sfo 107’ 

1 21 12705 201 MOV #2201,R5 

1 021 i 157574 MOV a RY 

if 6st O #51 001406 001244 HOV TRSR, REGIST 
3173 1 1044 TYPEL 

17g 021624 000110 AS107: STAGAS=STAGAS+1 

1 1 177777 157564 CMP 8-1, a3TRBA 

178 Bet Borst BEQ asi15 

1 1 1 177777 MOV #-1 

3180 1640 0172 157552 MOV STRBA RY 

181 1644 1O%0 7 1416 001244 nov TREA, REGIST 
3183 1226 1 Feper 

3186 021656 000111 AS110: STAGAS=STAGAS+1 

1 1 2777 177777 157526 CMP #-1, JTRWC 

1 1664 13h BEQ asiii 

1 1 O1 177777 MOV 

190 16 17704 157514 MOV STAbe. RY 

19 1676 0137 001412 001244 MOV TRWC, REGIST 

1 1 1 1 ERROR 1 

3133 1 104404 TYPEL 

3195 021710 ooo112 AS111: STAGAS=STAGAS+1 


; INCORRECT REGISTER MATCHUP 


—— ———- - 7 


| 
SEQ 0065S 


;SET BUFFER ADDRESS 
;SET WORD COUNT 
;SET THE GO BIT 


;PICK UP won PARAMETER 
“ey THIS AS A TIME COUNTER 


; TEST COMMAND REGISTER 

; INCORRECT REGISTER MATCHUP 
; TEST THE STATUS REGISTER 

; INCORRECT REGISTER MATCHUP 
; TEST BUFFER ADDRESS 

; INCORRECT REGISTER MATCHUP 


; TEST THE WORD COUNT 


CZTRABO MACY11 30(1046) 14-DEC-77 12: Pots 67 
ES TRASHED 14-DEC- 12:19 Suet T ROUTINES 


1 
1 021710 000207 


1 


1 
A 
1 
1 
1 
1 
1 
1 
1 
1 


ob bb bb 


NOU LW 


Maa iae) ose soa sae a INS 


Y 
8 
8 
e 
g 


| 
| 
| 
a 


ge NNNNNN 
Ne 
8a 





GBNGBS Enel 


oooo4o = 157450 


021776 


013626 
007336 
010560 
000207 157142 
002000 157330 


BO6 


RTS PC 


?THIS ROUTINE INSURES THE TAPE IS NOT AT LOAD POINT AND THERE 
:IS GOOD DATA ON THE TAPE 


TESTAH: 
SPWRCLR,@TRCR ;DEVICE MASTER RESET 
64S: BI SPURCLA STRCR ; INSTRUCTION CLEAR ? 
ent ;IF NO, WAIT FOR IT TO CLEAR 
9 #8ITS,aTRSR 


ead PC, TESTO 
Q$112: S$TAGAS=ST ot 
yee pe. TES FO 


?THIS ROUTINE DELAYS ABOUT 10 SECONDS 
TESTAJ: 


#20. ,3S 
2s: ret 3$ 
pve PC 
1S DEC 38 
BR 4 
cb 0 
, MOV HOLD, (PC)+ :PICK UP TIME PARAMETER 
be : . WORD : :USE THIS WORD AS A TIME COUNTER 
: INC ; IF NO, COUNT 1 OF B5595 TICKS 
ee OSE is TE Hate Hire pe sep LOOP Act 
-_ BNE 66S IF NOnGO WAIT A LITTLE LONGER 
’ RTS PC 
| ca eecenceresenenenennnenenttne ete neo ee 
:THIS ROUTINE TELLS THE OPERATOR TO RESET THE 
i TAPE TRANSPORT TESTS THE REGISTERS AFTER HE DOES 
TESTAK: 
PC, TESTI 
TYPE ,MRSTU 
A=. 
INC TEMP 
BNE 64S 
niall MOV #207, JTPOBR ;RING THE BELL 


BIT #BIT10,aTRSR 
a ;BRANCH IF CLEAR 


CO6 


CZTRABO MACY11 30( 1046) 





CZTRAB.HED  _14-DEC-77 
022060 013727 001240 
000000 

3564 
ea 187272 
= tet 
3523 001244 
as8e 
: 001244 
Bi 704 
93 O13787 b874i8 oo1244 
104404 
022256 000117 
022256 000207 


83 


14-DEC-77 12:32 PAGE 68 
12:19 SUB-TEST ROUTINES 


66S: 


A$113: 


AS114: 


AS$115S: 


MOV HOLD, (PC)+ 
-WORD O 

INC #0 

BNE 67S 


IT # ,3TRCR 
Aaa ec 
MOV 
Vv 


Roy tack Aaist 
TYPEF 1 AMRSFL 
STAGAS=STAGAS+1 

Vv aT Ri 
gee sBITS)R1 
CMP #1,R1 
oy aie 
MOV Stas RY 
Hoy TRSR, REGIST 
OR 1 
TYPEL 
STAGAS=STAGAS+1 
gay 

, ae 
MOV TORRE 
Eas REG REGIST 
YPEL 
STAGAS=STAGAS+1 
Ist TR 

Q 11 
4M sO ane RY 
HOV Phuc REGIST 
ERROR 
TYPEL 
STAGAS=STAGAS+1 
RTS PC 


;PICK_UP TIME rs TER 
;USE THIS WORD AS A 


TIME COUNTER 
Tt e Pe 1 er gene pie 
NO, > oop AGAIN 


Po ht Hie lee 


; TEST COMMAND REGISTER 


; INCORRECT REGISTER MATCHUP 


-GET STATUS 
;CLEAR pifts 


; TEST THE STATUS 

; INCORRECT REGISTER MATCHUP 
; TEST BUFFER ADDRESS 

; INCORRECT REGISTER MATCHUP 
; TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


DO6 


CZTRABO MACY11 30(1046) 14-DEC-77 12:32 PAGE 69 
C2TRAB.HED 14-DEC-77 12:19 SUB-TEST ROUTINES 
3908 ;THIS ROUTINE WRITES RECORDS PAST EOT 
3310 TESTAL: 
a oo0200 157120 IT 177, aTRSR 
90108 927535 OT ,USEA SET. FUNCTION 
is > Ogereue BOY 1. TET MOR ET YBUS ADDRESS 
a le 4 Bc? aR, 
8 A=. 
3319 157062 a 48177, 2TRSR tee 
000040 7 TS,9TRCR 
es Et plenvegtitan SBRANCH IF SET 
157036 #81T10, JTRCR 
;BRANCH IF CLEAR 
000200 157026 #8117, aTRCR 
BEQStsé@AR ;BRANCH IF CLEAR 





AS117: =$T +1 
aggers yeeaat! USEA -SET FUNCTION 
MOV #1000, USEB ;SET WORD oeguNT pea 
J Put ase 4 a 
BIS LR,@TRCR ;DEVICE MASTER RESET 
64S: IT SPWRCLR,@JTRCR ;INSTRUCTION CLEAR 
tIF NO, WAIT FOR IT TO CLEAR 





Bren HONS 2G0ue One 





Rui cnia arate rarer tna ith 


012737 o00402 027536 SWRITE,USEA SET FUNCTION 
12737 177700 027540 soured B . ;SET WORD COUNT ae 
5 B34898 —s BeUEO Lt 
eae 55 2 002602 156676 Br — ;TEST COMMAND REGISTER 
1 v 
25l2 017704 1 MOV TORRE 
& 37 001402 001244 V RCR Bist 
E RROR ; INCORRECT REGISTER MATCHUP 
1 007401 F 1 AWPETFL 
022532 000121 AS120: STAGAS=STAGAS+1 
3535 a 002201 156646 56 aot , aTRSR ; TEST THE STATUS REGISTER 
4 127 002201 v 
3363 O22546 017704 156634 MOV aTRSR,; RS 


ec SSS SS NS 


E06 


CZTRABO MACY11 301046) 14-DEC-77 12:32 PAGE 70 
CZTRAB. HED 14-DEC-77 12:19 SUB-TEST ROUTINES 
0 001406 001244 MOV TRSR, REGIST 
3302 Besers reetett ERROR 1 °° ; INCORRECT REGISTER MATCHUP 
b 4Oe2eSb2 TYPEL 
58 «022564 000122 AS121: STAGAS=STAGAS+1 
156622 TST JTRWC ; TEST THE WORD COUNT 
41 BEQ ASI22 
eae ry State 
1s 1 MOV aTRWC,RY 
37 1412 001244 MOV TRWC, REGIST 
id 1 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
le 1 YPEL 
022614 000123 AS122: STAGAS=STAGAS+1 
022614 000207 RTS PC 


;;THIS ROUTINE TESTS THE FUNCTION OF SPACE REVERSE PAST EOT 













Bt 922616 TESTAM: 
87 16 004737 022260 ISR PC, TESTAL 
€ 012737 001410 027536 MOV uSPACER, USEA -SET FUNCTION 
015737 000s BSF E49 HOV $= 1,0SE vsapat WORDCOUNT ADDRESS 
“4 537 d0012 JSR rire, 
z 003610 156524 CNP #3610, ATRCR ; TEST COMMAND REGISTER 
36 1 19 MOV #3610,RS 
1 1 MOV . RY 
36 rents — eR TRCR, REGIST INCORRECT REGISTER MATCHUP 
a40¢ soi5 it 007434 FRBeE MSRETFL , 
40 022704 900124 AS123: STAGAS=STAGAS+1 
uf 4 z 002201 156474 oe 1,@TRSR ;TEST THE STATUS REGISTER 
DE 4 Ol 20 
34C 1 Oee Gee 
3408 1 35 7 a, see TRSR, iB. INCORRECT REGISTER MATCHUP 
6 0227 104404 SPE 
ig 022736 000125 AS124: STAGAS=STAGAS+1 
14 3% 022777 177777 1564S2 CMP #-1, 3TRBA ; TEST BUFFER ADDRESS 
341 4 1 BEQ 125 
341 127 177777 MOV #-1.RS 
1 17704 156440 MOV aTRBA,RY 
3418 2756 013737 001416 o012e44 MOV TRBA, REGIST 
3419 Oe2764 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 


FO6 


AS130: STAGAS=STAGAS+1 


iste os 
: 
; 
: 


CZTRABO MACY11 30(1046) 14-DEC-77 12:32 PAGE 71 
CZTRAB. HED 14-DEC-77 12:19 SUB-TEST ROUTINES SEQ 0070 
34 022766 104404 TYPEL 
34 ; 022770 000126 AS125: STAGAS=STAGAS+1 
2777 000001 156414 CMP a1 aTRWC ;TEST THE WORD COUNT 
B42 onpoo: oy les 
1 rete MOV StRwe RY 
1 3737 0014i2 001244 MOV TRWC, REGIST 
1 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
104404 TYPEL 
023022 000127 AS126: S$TAGAS=STAGAS+1 
023022 000207 RTS PC 
36 7 iii & 
3039 ?THIS ROUTI TESTS THE FUNCTION OF READING PAST EOT 
3138 ?TAPE MUST POSITIONED FIRST 
ear seme: — 
12737 o00004 027536 MOV #READ, USEA -SET FUNCTION 
344, 187 77700 027540 MOV #-100.USE ;SET WORD COUNT 
4 40 027542 MOV sINPUT y Cc ;SET BUS ADDRESS 
nn] 7 1 JSR PC,EOTT 
Sue z 002204 156322 CHP #2204, STRCR ;TEST COMMAND REGISTER 
1 MOV RS 
1 i0 MOV 7 CR°RY 
37 1402 001244 MOV RCR, REGIST 
1 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
1 i 007476 TYPEF ,MRPETFL 
023106 000130 AS127: STAGAS=STAGAS+1 
106 002201 15627 CMP 201 TRSR -TEST THE STATUS REGISTER 
tie 1 3 2 ms ety may asi r 
igs 1 OeEseA MOV SSCA’ Ra 
1 137 001406 001244 MOV TRSR, REGIST 
3134 1 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
1 1 YPEL 
346 140 777 156246 TST JTRWC ;TEST THE WORD COUNT 
3468 east Boras ASI31 . 
3469 0231 1g? ooo000 MOV #0,%5 
3470 Oe 1 O1 os isbeo4 MOV JTAWC RY 
a2 1 137 i412 001244 MOV TRWC, REGIST 
72 Oe31 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
3473 023166 104404 TYPEL 
3475 023170 000132 AS131: STAGAS=STAGAS+1 


CZTRABO MACY11 
CZTRAB. HED 


sate eEA Sat 


ee 
WONT LW 


HEAT Maca aedeat a 


is 


30( 104% 
14-DEC-7 


DEC-77 12:32 PAGE 72 
SUB-TEST ROUTINES 


ret 
02754 
156150 


001244 


156120 


001244 


156076 


001244 


156040 


001244 


:THIS ROUTINE WRITES A EOF PAST 


TESTAO: 


A$132: 


AS133: 


AS134: 


AS135: 


GO6 


JSR PC, TESTAL 


MO #-1, USEC 
JSR PC, EOTTST 
CMP #3234, 3TRCR 
BEQ AS 


132 
Y Baga 
HOV TRCR, REGIST 
TOPEE , MWEFETF 


STAGAS=STAGAS+1 
CMP 211, aTRSI 
BEQ 744) 


MOV i, 611,85 
MOV a RY 
MOV TRSR, REGIST 
oper 


STAGAS=STAGAS+1 


TYPEL 
STAGAS=STAGAS+1 
CMP #1, 3TRWC 
BEQ agids 
MOV #1,R5 
MOV STRUC RY 
MOV RWC, REGIST 
ERROR 1 

TYPEL 
STAGAS=STAGAS+1 
RTS PC 


END OF TAPE 


SET FUNCTION 
;SET WORD COUN 
;SET BUS ADDRESS 


, TEST COMMAND REGISTER 

; INCORRECT REGISTER MATCHUP 

; TEST THE STATUS REGISTER 

; INCORRECT REGISTER MATCHUP 

; TEST BUFFER ADORESS 

; INCORRECT REGISTER MATCHUP 
; TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


SEQ 0071 


! 
| 
| 


CZTRABO MACY11 30(1046) 14-DEC-77 12:32 PAGE 73 
CZTRAB. HED 14-DEC-77 12:19 SUB-TEST ROUTINES SEQ 0072 


;THIS ROUTINE TESTS THE FUNCTION OF SPACING REVERSE OVER 
;END OF FILE PAST EOT 





TESTAP: 
ISR PC, TESTAO 
027536 Mov aSPACER USEA — SET FUNCTION 
BS5e48 v #-1 ueee , Cam Ns ADDRESS 
JSR PC, EOTTST 
155742 CMP agpagearece ;TEST COMMAND REGISTER 
MOV #3610,RS 
MOV STRCR RY 
001244 MOV RCR, REGIST 
ERROR 1 ; INCORRECT REGISTER MATCHUP 
F ,MREFETF 
a 023466 000137 AS136: STAGAS=STAGAS+1 
2777 OO2211 155712 MP #2211,3TRSR :TEST THE STATUS REGISTER 
S ar So agiae" . 
35 34 01 002211 MOV #2211,RS 
2 B78) BBTGEE co1ow my PRE HEcisr 
14 Paa081 ERROR 1 °° ; INCORRECT REGISTER MATCHUP 
3260 16 104404 TYPEL 
023520 000140 AS137: STAGAS=STAGAS+1 
2777 177777 155670 MP #-1,aTRBA ;TEST BUFFER ADDRESS 
Ggieee S014ii bros 48 : 
3 i 1eens6 NOY STRBACRY 
3202 BSteaa 815599 ABTETE ooo MOV Wor aedist 
3569 Ge3546 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
20 104404 TYPEL 
3 023552 000141 AS1YO: STAGAS=STAGAS+1 
74 023552 022777 O00001 155632 CMP #1, 3TRWC ;TEST THE WORD COUNT 
3575 0014 BEQ Asi41 
26 1 000001 MOV a RS 
1 155620 MOV ath RY 
38 37 0014i2 001244 MOV RWC, REGIST 
104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
3280 023602 104404 TYPEL 
328¢ 023604 000142 ASI41: STAGAS=STAGAS+1 
3584 023604 000207 RTS PC 
Be a a * 


:THIS ROUTINE TESTS THE FUNCTION OF READING A EOF PAST EOT 


WwW 
w 
@o 
N 


I06 





T MACY11 30( ) 14-DEC-77 12:32 PAGE 74 
&t . HED 132528253 13278* SUB-TEST ROUTINES SEQ 0073 
2 ERR eR 
004737 023400 ISR PC, TESTAP 
36 012737 027536 MOV #READ, USEA -SET FUNCTION 
187 40 MOV #--1,USEB ;SET WORD COUNT 
7542 MOV #-1, USEC ;SET BUS ADDRESS 
7 630012 JSR Pc, EOTTST 
002204 155534 CMP 204, ITRCR ;TEST COMMAND REGISTER 
O14 BEG 142 - 
1 1 MOV SFRCR’ Ra 
37 001402 001244 MOV TRCR, REGIST 
: 1 RROR 1 ; INCORRECT REGISTER MATCHUP 
36 i 007600 YPEF ,MREFETF 
: 023674 000143 AS142: STAGAS=STAGAS+1 
74 2777 O02211 155504 CMP #2211, 3TRSR ; TEST THE STATUS REGISTER 
‘ SEE ooeay oes 
51 io Ol 472 MOV RSR’RY 
51 14 0137 AB ioe 001244 MOV FRR REGIST 
Zel¢ 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
13 104404 TYPEL 
ig 023726 000144 AS143: STAGAS=STAGAS+1 
1 37 022777 177777 1SS462 CMP #-1,aTRBA ;TEST BUFFER ADDRESS 
1 001411 BEQ AS1494 
1 177777 MOV #- 
1 ASSHSD MOV a7 RY 
137 1416 001244 MOV RBA, REGIST 
3754 1 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
104404 YPEL 
3625 023760 000145 AS144: S$TAGAS=STAGAS+1 
3E59 2777 o00001 155424 CMP #1, 3TRWC ;TEST THE WORD COUNT 
3796 0 4 BEQ asi4us 
5541 MOV TRIC RY 
37 ba § 001244 MOV FRC REGIST 
1 ERROR ; INCORRECT REGISTER MATCHUP 
36 10 104404 Y 
024012 000146 ASIYS: STAGAS=STAGAS+1 
024012 000207 RTS PC 
SO a a a * 
3E40 'THIS ROUTINE TRIES TO WRITE ON TAPE WITHOUT A WRITE 
3041 ?RING 


3643 024014 RUNAS : 


CZTRABO MACY11 30(1 


Cc 


seus 





DNA LOH 


: 
: 
: 
: 
36 


wo 
wo 


TRAB . HED 


eo 
= 


1 
1 
1 
1 
1 
1 
114 
1 
1 
1 
1 
1 
1 


: 


& 28 8 fa 





4-DEC- 


2777 
141 
1e7 
017704 


013737 


JO6 


14-DEC-77 12:32 PAGE 75 
12:19 SUB-TEST ROUTINES 
990012 024040 #10. ,3$ 
2s: ney 3s 
pre OB 
024040 1S: DEC if 
3$: 0 
4S: 
TESTAS: 
go¥o00 155332 BIS #PWRCLR, JTRCR 
00 155324 64s: BIT sPURCL @TRCR 
027546 JSR TRYIT 
‘WORD OUTPUT 
001240 MOV HOLD, (PC)+ 
65S: .WORD O 
675: 
oo0000 NC #0 
BNE 67 
024076 DEC 65 
BNE 675 
66S: 
142602 155260 CMP 4 ,aTRCR 
Sho OCG” 
142602 MOV a142602, RS 
iS MOV JTRCR, RY 
001402 001244 MOV TRCR, REGIST 
ERROR 1 
007650 TYPEF ,MWENFL 
ASI46: STAGAS=STAGAS+1 
155232 MOV aTRSR,R1 
000040 BIC #BITS,R1 
002004 CMP ,R1 
BEQ a 147 
i0 Nov Ren’ Aa 
001406 001244 MOV #RoR REGIST 
ERROR 
TYPEL 
AS147: STAGAS=STAGAS+1 
031600 155200 CMP ©  sQUTPUT,aJTRBA 
BEQ $iS 
031600 MOV #OUTPUT, RS 
155166 MOV aT 4 
001416 oo1244 MOV TRBA, REGIST 


a NO- WALT FOR IT TO CLEAR 
iEtmeTION 
:BUS DODRESS 
pack UP TIME PARAMETER 
THIS AS A TIME COUNTER 
tes 1 Yi ae El? NO, LOOP AGAIN 
GO WAIT A LITTLE PONGER 


; TEST COMMAND REGISTER 


; INCORRECT REGISTER MATCHUP 


STATUS REGISTER 
;CLEAR UAGENTED BITS 


; TEST THE STATUS REGISTER 


; INCORRECT REGISTER MATCHUP 


; TEST BUFFER ADDRESS 


! 
| 
| 
| 
| 
od waren RESET 


} 


—— MACY11 
701 Geese 


Bon) Re 


“ 


wears 
PEEP ARAAADARANENNAY 


saege RASS Bb 78EC°77 es 9g 





be 


002040 


61406 


Se) 


-—000 
a 


B 
Ma] 
£ 


154772 
HEA coco 
017704 15476) 
013737 


001416 


155142 


001244 


1sso04e 


001244 


155012 


001244 


001244 


KO6 


PAGE 7 
SUB-TEST ROUTINES 


ERROR 1 ; INCORRECT REGISTER MATCHUP 
TYPEL 


AS1SO: STAGAS=STAGAS+1 


CHP #177700, ,aTRWC =; TEST _THE WORD COUNT 
Ry Hracoeus 

MOV Tuc, , REGIST 

ERROR ; INCORRECT REGISTER MATCHUP 


AS1S1: STAGAS=STAGAS+1 


BIS SPWRCLR,ITRCR ;DEVICE MASTER RESET 
64S: BIT #PWRCLR,@TRCR ;INSTRUCTION CLEAR ? 
ene gas ;IF NO, WAIT FOR IT TO CLEAR 


;THIS ROUTINE TRIES TO SPACE REVERSE AT LOAD POINT 


TESTAT: : Pc rest 
JI *TRYI 
: SPACER tRiNCTI 
- WORD =1 : WORD aStnT 
: 0 ‘BUS DDDRESS 
CMP #1443610, TRCR ; TEST COMMAND REGISTER 
BEQ 
MOV #143610,RS 
MOV 
MOV RCR, REGIST 
RROR 1 ; INCORRECT REGISTER MATCHUP 


YPEF ,MSRLPFL 
AS1S2: STAGAS=STAGAS+1 


CMP , aTRSR ;TEST THE STATUS REGISTER 
BEQ as S 
MOV BS 
MOV tHe 
MOV RSR, REGIST 
ERROR ; INCORRECT REGISTER MATCHUP 
YPEL 
ASIS3: STAGAS=STAGAS+1 
TST aTRBA ; TEST BUFFER ADDRESS 
BEQ ASISY 
MOV #0,RS 


MOV JTRBA,R 
MOV TRBA, REGIST 


CZTRABO MACY11 30( 1046) 
CZTRAB. HED 


7 


SLLLLLatreenteeeher errr: t RANSsPRARRT Arata 


177777 


Aa 
bB148 


004000 
004000 


B18 


014764 
027S46 


003610 
003610 


14-DEC-77 
14-DEC-77 12:19 


154734 


001244 


154672 
154664 


001244 


154574 


LO6 


12:32 PAGE 77 


SUB-TEST ROUTINES 


Wee 


ASIS4: S$TAGAS=STAGAS+1 
MP 8-1, aTRWC 
Sf o Asie? 
MOV #-1,RS 
MOV gTRUC RY 
MOV RWC, REGIST 
ERROR 1 
TYPEL 
ASISS: STAGAS=STAGAS+1 
BIS SPWRCLR, JTRCR 
64S: BIT #PWRCLR, JTRCR 
64S 
RTS PC 


; INCORRECT REGISTER MATCHUP 


;TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


;THIS ROUTINE TESTS THE BUS ADDRESS BITS BY USING A COUNT PATTERN 


oe CLR R1 


ERROR 1 
AS1S6: 


RTS PC 


;CLEAR COUNT 


sSEr BUS ADDRESS 
; TEST BUS ADDRESS 


; INCORRECT REGISTER MATCHUP 


5 ANCee eT COUNT 
; CONTINUE 


THIS ROUTINE SPACES REVERSE OVER ID BLOCK 


TESTAV: 
J PC, TESTO 
JSR RS, TRYIT 
.WORD SPACER 
‘WORD = 
‘WORD -1 


CMP #3610,aTRCR 
BEQ AS1S7 
MOV #3610,R5 


‘FUNCTION 
WORD COUNT 
‘BUS DODRESS 


; TEST COMMAND REGISTER 


SEQ 0076 


CZTRABO MACY11 30( 1046) 
CZTRAB.HED 14-DEC-77 12:19 


3812 024614 017704 154S62 
iB De 5D 1 007727 
381 
3 024634 000160 
1 






natn 


pe eSe aT ‘ 
Gere Bloros 1EAGE 
19304 


i 9 
gos 


RRoRe nae 
99 
ass 


N 
: 
<= 


oo2204 


14-DEC-77 


001244 


154S44 


001244 


154S2e2 


001244 


1S4464 


001244 


1s4422 
154414 


154360 


MO6 


12:32 PAGE 7 


8 
SUB-TEST ROUTINES 


AS1S7: 


AS160: 


AS161: 


MOV aTRCR, RY 
poy TRCR, REGIST 


TYPEF ,MSRIFL 
STAGAS=STAGAS+1 
CMP #2061 ,a3TRSR 


Re BA 


HOY TRSR, REGIST 
TYPEL 
STAGAS=STAGAS+1 

gro 0Ossdgh 
MOV 8-1, RS 

MOV aTRBA 


RY 
MOV TRBA, REGIST 
ERROR 1 
YPEL 
STAGAS=STAGAS+1 
MP #-1, JTRWC 
Sto 40s 1B 
HOV ST Ae RY 
MOV + RUC REGIST 
RR 1 
L 
STAGAS=STAGAS+1 
18 SPURCLR, BTRCR 
SPHRCLR, TRCR 


RTS 


?THIS ROUTINE READS A ID BLOCK 


TESTAW: 


PC, TESTI 
CLR INPUT 
ISR RS, TRYIT 
: READ 
‘WORD 1 
‘WORD INPUT 


CMP #2204, aTRCR 


; INCORRECT REGISTER MATCHUP 
;TEST THE STATUS REGISTER 

; INCORRECT REGISTER MATCHUP 
; TEST BUFFER ADDRESS 

; INCORRECT REGISTER MATCHUP 
;TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


;CLEAR INPUT AREA 
FUNCTION 

SWORD. COUNT 

'BUS DDDRESS 


; TEST COMMAND REGISTER 


SEQ 0077 


NO6 





RABO MACY11 30 4-DEC-77 12:32 PAGE 79 
CRA ED ee geet8) 3258 SUB-TEST ROUTINES SEQ 0078 
BEQ AS163 
ieee oueaes ee 
139 baiace 001244 nov ex warst 
i ERROR 1 ; INCORRECT REGISTER MATCHUP 
007764 YPEF ,MRIBFL 
000164 AS163: STAGAS=STAGAS+1 
oo202 4330 CMP #2021, 3TRSR :TEST THE STATUS REGISTER 
O14 vita BEG ASIE4 : 
1 54316 MOV TRSR.RY 
REGIST 
1 35 1 06 res POROR a. ; INCORRECT REGISTER MATCHUP 
1 TYPEL 
000165 ASI64: STAGAS=STAGAS+1 
z 035640 154306 CNP ain T, 3TRBA ;TEST BUFFER ADDRESS 
BLA caseun Roy Sterns 
135 iee74 001244 Nov # RES ROA A ct 
i 1 ERROR pee ; INCORRECT REGISTER MATCHUP 
000166 ASIES: STAGAS=STAGAS+1 
e777 177777 154250 cue a1 gpTRHC ;TEST THE WORD COUNT 
biseee tare ry FrhutSpu 
4 Vv TRWC, REGIST 
b2 1GH084 on eons ERROR 1 ; INCORRECT REGISTER MATCHUP 
66 000167 AS166: STAGAS=STAGAS+1 
1 ? 40 TST ;TEST INPUT AREA 
LF FELSEL co Be Se 
i0 1 4 MOV 
4 v sinPute REGIST 
ig ‘2 1 1 O36640 —— Erm I ; INCORRECT REGISTER MATCHUP 
3914 1 AS167: STAGAS=STAGAS+1 
3ale Geer poyoce BUBB cus: BT?  — SPURCER'STRER © SDNSTRUCTION CLEAR’? 
3317 025232 001374 ‘ 64S :IF NO, WAIT FOR IT TO CLEAR 
3319 025234 000207 RTS PC 
3a5y 0 em mm me nn nn on nena * 
336¢ :THIS ROUTINE WRITES EVEN PARITY 











BO? 


CZTRABO MACY11 30¢ ) 14-DEC-77 12:32 PAGE 80 
| €ZTRAB. HED 14 e293 12:19 SUB-TEST ROUTINES 
| 3 TESTAX: 
| 021712 ISR PC, TESTAH 
| 
027546 ISR TRYIT 
| Sq 736rp WRITE 
32° “WORD -100 
“WORD BADOUT 
001240 MOV HOLD, (PC)+ 
; oF : .- WORD 0 
ooooco “INC #0 
a3 025260 Bre e5$ 
93 BNE 665 
336 65S: 
154076 CMP ‘ , TRCR 
BEQ 89580 
MOV #102602, RS 
MOV » RCR, RG 
001244 MOV RCR, REGIST 
RROR 
YPEF ,MPARFL 
AS170: STAGAS=STAGAS+1 
1S4046 CMP # 1,aTRSR 
| BEQ aag5oc 
MOV #162001,RS 
MOV STRSR R4 
001244 MOV RSR, REGIST 
reat 
YPEL 
AS171: STAGAS=STAGAS+1 
MOV B,R1 
COM Ree : 
INC R1 
ASL R1 
4 1 031574 ADD #BADOUT, R1 
177 154010 CMP Rl aTRBA 
410 BEQ 172 
41 1 1 MOV R1.RS 
3969 1 17704 154000 MOV JTRBA, RY 
416 013737 OO1416 o01244 MOV TRBA, REGIST 
7 1 1 RROR 1 
i 104404 YPEL 
3974 025430 000173 AS172: S$TAGAS=STAGAS+1 
3378 4 905777 153756 TST TRWC 
3978 OSes O12 70S ooooco BEG ao eRe 
3979 Oes44e 017704 153744 MOV aTRWC, RY 


AMETER 
TIME COUNTER 

£0? IF NO, LOOP AGAIN 
. s 


TIME _EL D? 
WAIT A LITTLE LONGER 


; TEST COMMAND REGISTER 

; INCORRECT REGISTER MATCHUP 
; TEST THE STATUS REGISTER 

; INCORRECT REGISTER MATCHUP 


; T WORD COUNT 
> INCREMENT IT 
:DOUBLE IT 
:FINISH IT 


;TEST BUFFER ADDRESS 
; INCORRECT REGISTER MATCHUP 


;TEST THE WORD COUNT 





CO? 
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CZTRAB. HED 14-DEC-77 12:19 SUB-TEST ROUTINES SEQ oso | 
4— 013737 OO1412 001244 Hoy TRC, REGIST 
1 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
1 04 TYPEL 
025460 000174 AS173: STAGAS=STAGAS+1 
| Ges4e0 952777 004000 153714 BIS SPWRCLR,JTRCR ;DEVICE MASTER RESET 
004000 153706 64S: BIT #PWRCLR, JTRCR j INSTRUCTION CLEAR? oan 
309 Heath’ BRAEG? xen” 
1 A ee ee * 
a STHIS ROUTINE SPACES REVERSE OVER EVEN PARITY 
TESTAY: 
025236 JSR PC, TESTAX 
Di 027546 JSR TRYIT ses 
a4 DoS - WORD BBACER ? FUNCTION 
Bess ; -100 :WORD COUNT 
255 ;WORD INPUT +BUS DDORESS 
0255 001240 MOV HOLD, (PC)+ :P I PARAMETER 
Be 58 bus: .WORD O H THIS AS A TIME COUNTER 
Des: ooo000 ‘ I #0 s1F NO,COUNT 1 OF GS535 TICKS 
D2SSs 66S j HAS He IME EXPI b? obi NO LOOP AGAIN 
‘ 025522 DE bas ; THE TOTAL TIME EL D? 
0 athe BNE 66 :IF NO,GO WAIT A LITTLE LONGER 
1 
12 153634 CNP #103610,aTRCR ;TEST COMMAND REGISTER 
‘ oo as 
14 v 
iS 001244 MOV TRCR, REGIST 
1B ERROR 1 ; INCORRECT REGISTER MATCHUP 
i F ,MEPSRFL 
1 AS174: STAGAS=STAGAS+1 
153604 CMP #122001,3TRSR ;TEST THE STATUS REGISTER 
BEQ ast 
MOV #1 1,RS 
4 MOV STRSR R4 
001244 MOV RSR, REGIST 
4 ERROR 1 ; INCORRECT REGISTER MATCHUP 
YPEL 
AS17S: STAGAS=STAGAS+1 
153562 MP e T, @TRBA ; TEST BUFFER ADDRESS 
te o35640 Be itr es 
4034 OeS642 017704 153550 MOV aTR 
4035 025646 013737 OO1416 oo01244 MOV TRBA, REGIST 


CZTRABO MACY11 30( 1046) 


CZTRAB. HED 


e 
= 


besese 





14-DEC-77 12:32 
14-DEC-77 12:19 


1 1 
iBago4 

AS176: 
153524 


001244 


183484 


TESTAZ: 


ees: 


65S: 


153402 


001244 


153352 


001244 





DO7 


PAGE 82 
SUB-TEST ROUTINES 


RROR 1 
YPEL 

STAGAS=STAGAS+1 

cne 8177700, 3TRUC 
Rov #1 27700 PS 
nov Pee ABest 
ERROR 1 

TYPEL 

STAGAS=STAGAS+1 

BIT SPHRC th STRER 
pe gS 


JSR PC, TESTAY 
JSR RS TRYIT 
Hg 
: INPUT 
MOV HOLD, (PC)+ 
.WORD O 
INC #0 
BeOS 

64 

66 
CMP #102204, JTRCR 
BEQ 
Nov athe Ran 
v RCR, REGIST 
Bek or 1 
TYPEF ,MREPFL 
STAGAS=STAGAS+1 
MP ¥ 1,aTRSR 
Seo aasag 
nov #16 1,RS 
MOV ore ,REGIST 
ERROR 1 


; INCORRECT REGISTER MATCHUP 


; TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


RESET 


33 
now 


T 

Ss 
ine PARAME TE 
THIS WORD AS A TI 
NO 

T i EXPIRED? 

THE TOT Lis L 
NO,GO WAIT A LITTL 
; TEST COMMAND REGISTER 
; INCORRECT REGISTER MA 


; TEST THE STATUS REGIS 


; INCORRECT REGISTER MA 


L ” 
OR IT TO CLEAR 


:THIS ROUTINE READS EVEN PARITY 


R 
ME COUNTER 


COUNT 1 OF 6553S TICKS 


if NO. LOOP AGAIN 
E LONGER 


TCHUP 
TER 


TCHUP 
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CZTRAB. HED 14-DEC-77 12:19 


rererer 





026210 022777 
Oebe16 
Oeb2e0 032777 


SEESELSESLSLELSCSLCLCLCS ESSE SSE SESE SC SESE CESSES SSS SSE SSL SS 
Oe ee ee ae ae ee a a ae a ae ee bn ae ee a an ae ee an an ae ae ae ne ee ae Be Be Be ms Be Be be fe Be ee 


VFHEGMH—SBOVERLOV SHON LO OOO VON £w- OSV LOS 





183634 


bBiai 


010105 


o02602 
000200 


153330 


001244 


153274 


001244 


001244 


153164 
153160 


SUB-TEST ROUTINES 
TYPEL 
AS201: STAGAS=STAGAS+1 


CMP SINPUT+2, ATROA ;TEST BUFFER ADDRESS 
BEQ 

MOV BS 

HM oRBE REGIST 

OR = ; INCORRECT REGISTER MATCHUP 


AS202: STAGAS=STAGAS+1 


CMP #177701,aTRWC ;TEST THE WORD COUNT 
BEQ Agen3 
MOV #177701 RS 
HOV Tee ee st 
R | eee ; INCORRECT REGISTER MATCHUP 
AS203: STAGAS=STAGAS+1 
RTS PC 


;THIS ROUTINE TESTS THE BITS IN THE WORD COUNT USING A COUNT PATTERN 


TESTBA: CLR R1 ;CLEAR COUNT 
=. 
MOV T :SET WORD COUNT 
CMP RL, STR FESr PGRO COUNT 
AG R1,RS 
HOY STR Bd cr 
RROR 1 ” ; INCORRECT REGISTER MATCHUP 
YPEF ,MWCFL 
4: $TAGAS=STAGAS+1 
_ inc RI INCREMENT COUNT 
A CONT INUE 
RTS PC 
, EE EEE EEE EEE EEE EEE ELE LL LL LE 
;THIS ROUTINE TESTS THE STATUS AND COMMAND REGISTERS 
[AFTER VALID WRITE FUNCTIONS 
TESTCX: CMP #2602, JTRCR ;TEST COMMAND REGISTER 
BEQ AS20S 
BIT #200, aTRSR ;£0T?? 


SEQ 0082 


14-DEC-77 12:32 PAGE BY 


cerneso MACY11 30( 1046) 
c 14-DEC-77 12:19 


TRAB. HED 





41 1 
41 
41 
41 
41 
41 
41 1 
i 
i bes 
i : 
41 000206 
41 
41 
41 4 
ie i 
41 
ates 
41 
41 
41 
417 1 
i i 
4174 1 
41 1 
41 
41 000207 
41 
41 
41 4 
4181 1 
41 1 
41 37. 
41 1 
41 1 
i 
i eenet? 
41 
41 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BELERLSO- SSS VTL 


SEES ELSLCELSCLS&LS&L£&£ 


S888 
eee 


Oo 
Ww 
oO 
uy 
o 
o 


isis 


00S667 


002001 


002204 
000200 


002204 
152750 


001244 


153114 
153104 


001244 


001244 


153000 
152774 


SUB-TEST ROUTINES 


1$: 


1%: 


AS206: 


BEQ 1$ 

CMP (SP)+, (SP)+ 
CMP (SP)+? (SP)+ 
cn (gP)+, (SP)+ 
roy SRG. 
HOV TRCR, REGIST 
TYPEF ,MWRTFL 
STAGAS=STAGAS+1 

gr aggge.aresr 
BIT ‘ , aTRSR 
CMP (SP)+, (SP)+ 
CMP (SP)+) (SP)+ 
CHP (SP)+, (SP)+ 
roy S04 
HOV ? , REGIST 
TYPEF ,MWRTFL 
STAGAS=STAGAS+1 

TST T 

a (Be 
ney e 
nov # RUC REGIST 
EEE , MURTFL 
STAGAS=STAGAS+1 

T PC 


; INCORRECT REGISTER MATCHUP 


; TEST THE STATUS REGISTER 
;AT EOT?? 
:NO 


’ 
; INCORRECT REGISTER MATCHUP 
;TEST WORD COUNT 


; INCORRECT REGISTER MATCHUP 


; THIS BOUT ING ESTs THE COMMAND AND STATUS AFTER VALID 
$ FUNCTI 


READ 
TESTDX: 


1S: 


CMP see STAR 
BEQ AS210 
284 +t jean 


BE 

CMP (SP)+, (SP)+ 
TST (SP)+ 

RTS PC 

MOV #2204,R5 


MOV JTRCR; RY 


; TEST COMMAND REGISTER 
;AT EOT?? 
: NO 


SEQ 0083 


C2T 


iiss 3 


CZTRABO MACY11 30(1 

. HED 14-DEC- 
Bees 013737 
a 
026446 000211 
m4 
thee 

ae 
1 1 
104403 
000212 


SRN iuiuiulyigiurorrererereforeiuiuiuiyiaiyiy 
ee he 
LOM oom VOU Eure 


SLES LC ECOL ECCS CESS 


rutin 
BURR LOM 


get 


SEECCLCOCSCLCOCLLESC£C£ 
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12:19 
001402 
005700 


002001 


015622 
031212 
027546 


03} 856 
Oebe1 


027546 


026210 


027546 


001244 


152732 


1S2722 


001244 


001244 


12:32 


PAGE 8S 
SUB-TEST ROUTINES 


GO? 


MOV TRCR, REGIST 
RROR 1 


YPEF ,MROFL 
AS210: STAGAS=STAGAS+1 
CMP #2061, aTRSR 
BEQ neoy 1’ 
#200, STRSR 
CMP (SP)+, (SP)+ 
TST (SP)+ 
RTS 
1S: 
Mov #2001 ,RS 
Mov « PRER REGIST 
ERROR 1 
TYPEF ,MROFL 
AS211: STAGAS=STAGAS+1 
TST aT 
Re 
MOV a RY 
MCV TRHC, REGIST 
FRReF , MROFL 
A212: STAGAS=STAGAS+1 
ISR PC, TESTS 
RTS PC 
TESTCA: 
jee Re’ Savy 
. WORD BRITE 
‘WORD -1 
3 TPUT 
ISR PC, CHKINT 
JSR Pc, ESTCX 
RTS P 
TESTCK: 
JSR RS TRYIT 
“HORB a 
Wd OUTPUT 
ISR PC, TESTCX 
RTS PC 
TESTEK: 
ISR RS, TRYIT 
.WORD SPACER 


; INCORRECT REGISTER MATCHUP 


; TEST THE STATUS REGISTER 
;AT EOT?? 
;NO 


; INCORRECT REGISTER MATCHUP 
; TEST WORD COUNT 


; INCORRECT REGISTER MATCHUP 


FUNCTION 
WORD. COUNT 
‘BUS DDDRESS 


533 
HONS 2801 
;8US DDDRESS 


{FUNCTION 


SEQ 0084 


CZTRABO MACY11 
CZTRAB. HED 


458? BEEEd6 
4262 26642 
2 026646 


BEEEES 
eee 


026666 


rororore 
Vode 


SEES SCSLOCSC£ prot ££ 
_ 
N ? 
— 
Oo 


eee ASE TEE PAE RS 
Qo 


Dini iororoibrompiDiDiD 
Bas 


SELLS 
aR 
N 


30( 1046) 
14-DEC-77 12:19 


004737 026670 
000207 


004S37 027546 


1 
004737 027016 
000207 


022777 003610 


on38}9 


1402 


005710 

000214 
‘ 002001 
are 
Bie si 
1 005710 

000215 
027540 


01 027540 
bia7a Oolule 
104001 


005710 


14-DEC-77 


152504 


001244 


1524S4 


001244 


152424 


001244 


12:32 PAGE 86 


SUB-TEST ROUTINES 


HO? 


5109 
JSR PC, TESTEX 
S PC 


TESTFO: 

_ wn RS, TRYIT 
ey 
‘ OUTPUT 
JSR PC, TESTFX 
RTS PC 


WAS *RUTANG FE Torneo 


TESTEX: CMP #3610, 3TRCR 
BEQ 1 
Mov BE 
v g R 
MOV RCR, REGIST 
ATPeE 
YPEF ,MSRVFL 
AS213: STAGAS=STAGAS+1 
CMP 1,3TRSR 
Q 4 
HOV Tear 
MOV ? , REGIST 
ERROR 1 
YPEF MSRVFL 
AS2Z14: STAGAS=STAGAS+1 
CMP USEB, JTRWC 
BEQ Agse15 
MOV USEB, RS 
MOV aTRUC RY 
MOV RWC, REGIST 
ERROR 1 
TYPEF ,MSRVFL 
AS21S: STAGAS=STAGAS+1 
RTS PC 


:THIS ROUTINE TESTS THE COMMAND 


‘BOS DBSRESs 


ih} 

: TION 

iuoeO COUT 

;BUS D ss 

AND STATUS AFTER VALID 

; TEST COMMAND REGISTER 

; INCORRECT REGISTER MATCHUP 
; TEST THE STATUS REGISTER 

; INCORRECT REGISTER MATCHUP 
; TEST WORD COUNT 


; INCORRECT REGISTER MATCHUP 


AND STATUS REGISTERS AFTER 


CZTRABO MACY11 30( 1046 


CZTRAB. 


313 


be he 


LLL 
- 


BERR SERIO NO IAS” 
RESTERS RRRGS 


SEEECECLCELCESCSCLESCLC ELSES SSC ELSL£L 


SELLE SCLLELCES 


Sa uses EAE ESE EEL 


4355 


HED 


7016 


-—e 


g 


Se52N8? Soene® RK 


— hh he 


g 


RR 
- 
<£ 


N 
— 


NN 


14-DEC-77 


oe 
bo 
ee 
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SUB-TEST ROUTINES 


12:19 


002216 
onzais 

1402 
005731 
002001 
002001 
israse 
005731 


027540 


031600 
152266 


ssi 
1416 
00S731 
1S$2232 
oo0000 
1Se2e0 


001412 
005731 


000017 
027356 
000001 


152356 TESTFX: CMP 
BEQ 


001244 


1$2326 


001244 


001244 


001244 


001264 


I0?7 


;AN ERASE FUNCTION 


AS216: 


AS217: 


#2216, 3TRCR 
MOV 4 RS 
MOV STRER’ Ra 
MOV TRCR, REGIST 
ERROR 1 


TYPEF ,MERFL 
STAGAS=STAGAS+1 


CMP #2001, 2TRSR 
BEQ i 

MOV #2001,RS 
MOV STRSR R4 
nov TRSR, REGIST 


. OR 
YPEF ,MERFL 
STAGAS=$TAGAS+1 
MOV USEB,R1 
Rl 
ee 
ADD #OUTPUT,R1 
CMP R1,aTRBA 
S128) 


roy SHAE 
MOV qREA REGIST 
ERROR 1 

YPEF ,MERFL 
STAGAS=STAGAS+1 
Ist TRWC 

¢ ee 

aTRWC, RY 

MOV TRWC, REGIST 
ERROR 

YPEF ,MERFL 
STAGAS=STAGAS+1 
RTS PC 


; TEST COMMAND REGISTER 

; INCORRECT REGISTER MATCHUP 
; TEST THE STATUS REGISTER 

; INCORRECT REGISTER MATCHUP 


;GE 


; WORD COUNT 
3FI 


T 
x IT 
;DOUBLE_IT 
!COMPUTE BUS ADDRESS 

; TEST BUFFER ADDRESS 
; INCORRECT REGISTER MATCHUP 


; TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


;THIS ROUTINE WRITES,SPACES REVERSE, AND READS 


TESTXX: MOV 
MOV 


#15. ,R4 
#S1ztas,R3 
MOV #1,WRTFLG 


;LOAD_THE TOTAL SUBTEST PASS COUNT 
;POINT TO TABLE OF BLOCK SIZES 
;SET FLAG FOR RETURN 


SEQ 0086 


ggrnege MACY11 
C2T 


RAB. HED 


Zan 


SEPA LOR ese ROR! 


-8 


££ Fie leratatet TPL TCE TET E RE EE LT COREE RR 
RE-— STON 


<= 
= 


ELESES SELES ELE 
eae Sa Sy a at 
OOD NOU Wr O 


wre 





PUES) BRE? 1 


027546 


177775 
O0o0004 
035640 
026374 


001264 


016144 


JO? 


32 PAGE 48 
SUB-TEST ROUTINES 
1S: MOV (R3)+,4S 
MOV #3,Re ;KEEP_TRACK OF THE NUMBER OF FUNCTIONS TO DO 
MOV sBUF TAB, RS :POINT TO TABL OF BUFFERS 
MOV #FUNCTB,R :POINT TO T OF FUNCTIONS 
MOV sSUBTS :POINT TO TABLE OF FOLLOWUP TESTS 
JSR PC. ENAINT 
2s: MOV (RLi+, 38 ;LOAD A FUNCTION IN SUBROUTINE INTERFACE 
MOV (R5)+,8 iL THE OF THE BUFFER 
MOV R1,-(5P) :SAVE REGISTERS. 
MOV Re, -(SP) 
MOV R3,-(SP) 
MOV R4;-(SP) 
MOV Re, =(SP) 
- JSR *TRYIT ;GO EXECUTE THE FUNCTION 
4S: - HoRR § 
Ss: -WORD O 
JSR PC, a(RO)+ ;D0 THE APPROPRIATE FOLLOWUP TEST 
MOV (SP)+,R5 :RESTORE THE REGISTERS 
MOV (SP )+,R4 
MOV (SP)+,R3 
MOV (5P)+; Re 
MOV (SP)+°RI 
DEC Re ; REDUC THE COUNT. ALL FUNCTIONS DONE? 
:IF NOT, GO 00 THE NEXT ONE 
DEC RY *REDUCE THE OVERALL COUNT. ALL BLOCK SIZES DONE? 
BNE § tIF NOT, GO DO THE NEXT ONE 
J TESTL 
ISR * TESTU 
JSR PC’ TESTV 
1ZTAB a0 TESTI 4 7,-10, -20,-40, -100, -200, -400, -1000, -2000 
2 T : € ALTE. ER Reap’ ’ ’ a ’ a s ’ , 
BURT ee OU Pur, 9 NPUT 
SUBTST: . TESTCX; TESTEX, TESTDX 
ee oe SS SSS SS SSS SS SSS EEE OES EEE ESSE OOS OOO OOO OOOO OOOO eee eee eee OOOO eee ee & 
?THIS ROUTINE READS DATA WRITTEN BY TESTXX. 
TESTXY: MOV #15, RY 60 T THE R OF ITERATIONS 
MOV Z2tAB,R3 :POINT TO THE TABLE OF BLOCK SIZES 
MOV #2, WRTFLG ;SET RETURN FLAG 
1s aoe ive , TINE INTERFACE 
. ’ 
i Ho ta8) iEOOE REGISTERS 
mee Ree rarTy GO DO A READ FUNCTION 
. WO READ iBxeCure A READ 
2s: * WO 0 *BLOCK SI 
INPU :BUFFER TO USE 
ISR PC, TESTDX sEXECUT THE FOLLOWUP ROUTINE - 
MOV (SP)+,R4 ;RESTORE REGISTERS. 
MOV (5P)+'R3 
DEC R4 sREDUE COUNT. ALL BLOCK SIZES DONE? 
BNE 1$ :IF NO, GO DO THE NEXT ONE 
ISR PC, TESTV 





SEQ 0087 


CZTRABO MACY11 30( 1046) 
CZTRAB. HED 


4424 


= 
VER 


ae 3 retetct tH 


we 


£ 
r: 


SSSA AAAS ENNIS 


L——__-___ 


14-DEC-77 1le:1 


O27S2e2 000137 027436 





010155 





— 12:32 


aBrese 
181505 


151460 


PAGE 89 
SUB-TEST ROUTINES 


KO? 


JMP TESTXY 


; THIS ROUTINE rio TAPE FUNCTION IT IS CALLED 


BY HE TAPFUN MAC 

USEAO: O 

USEBO: QO 

USECO: QO 

USEDO: O 

USEA: 0 

USEB: 

USEC: 

USED: 

TRYIT: HOV 


MOV USER, USEAQ 
HOV 86 
oe JSR Bec FESTh 
AS223: STAGAS=STAGAS+I 
MOV aTRCR,USED 
BIC a , USED 
Seo — 
MOV RS 
MOV 
MOV REGIST 
ERROR 1 
TYPE _, MUNRDY 
BR A 
AS224: S$TAGAS=STAGAS+1 


Big S81 T0;Usen" 


MOV USEB, JTRWC 
ney USEC; JTRBA 


MOV USEA, aTRER 
JSR PC, TESTA 


jFUNCTION 
scree TA UFFER Ess 
; AGE LOCATION 
eet f THE FUNCTION ‘ 

Ss 


Save Lest | BAST 


SAVE LAST BUS 


TEST THE C 


ADDRESS 


TS 
REGISTER 


;STORE COMMAND REGISTER 
31 ORR GRUANTED Bs 
;TE OMMAND 


; INCORRECT REGISTER MATCHUP 


;GET RID OF DERORS 


;SET GO BIT IN COMMAND 


EL MURR RePPEE Bawczn 10 0 


PROGRAM OPERATION 


QUIPMENT STATUS OR 
Se7 CONTROL REGISTE 


; THIS LOCATION MAY 


TER 


SEQ 0088 


HALT TO INSPECT 


CHANGED TO A HALT TO INSPECT 
EQ QUIPHENT STATUS OR PROGRAM OPERATION 
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CZTRAB.HED 14-DEC-77 12:1 UB-TEST ROUTINES SEQ 0089 
44 000200 151450 By agizz, ores 
44 001264 $ He LG ; TEST FOR RETURN FLAG 
000001 001264 Bee #1,WRTFLG ;WRITE RETURN? 
44 BNE 2g ; 
44 MP (SPi+, (SP)+ 30K READ 
fst + 
bey 
4489 2s: CMP (SP)+, (SP)+ 
44 che (SP +, ( )+ 
yy MP (SP)+, (SP)+ 
“a 001264 3S: CLR WRTELG 
44 1S Ris Pe 
W436 030004 004737 013626 an JSR “fs TESTI 
rm B3o018 soasee —— ae Teens ;RETURN TO CALLING PROCEDURE 
dept ‘ 
Ge05 ‘ ;THIS ROUTINE PERFORMS TAPE FUNCTION IT IS CALLED 
:BY THE EOTFUN MACRO THIS IS USED FOR EOT FUNCTIONS ONLY 
905737 031326 EOTTST: TST NTFLG ;CHECK INTERRUPT FLAG 
14 BEQ Agspe 
4508 052737 O00100 027536 we BIS 5 faire USER ;ENABLE INTERRUPT 
eat fee serems parses GY Hee tees NE LAST USTED 
dele 42 027532 MOV U B 0 SAVE LAST BUS ss 
1 14664 JSR N 
14 100000 151320 BIT aB1T15, aTRCR 
ig 4 BEQ AS22 
=. 
1 1 ERROR ;ERROR-BIT WAS NOT CORRECT 
del 104403 010123 TYPEF ,MUNERR 
4813 oo4000 151302 3 #PWRCLR, ITRCR DEVICE MASTER RESET 
1 004000 274 «64S: SPWRCLR{@TRCR ; INSTRUCT ? 
eee 1 ane vie Bit we ‘tf NO, WAS? Fb IT TO CLEAR 
il AS227: STAGAS=S AGAS 1 
wee! GBP Bir JUEsS fares BY STPERSYPEeD 810m Commune, MEDHETER 
is3 ; 002200 4 cnr 8 USED :TEST THE COMMAND REGISTER 
1 1 200 MOV #02200, RS 
1s B13 bo 1aG2 001244 HOY YRER REGIST 
152 i 65 ERROR 1’ ; INCORRECT REGISTER MATCHUP 
4 154 1 010155 TYPEF § ,MUNRDY 
4534 030160 000741 BR A ;GET RID OF DERORS 
4535 030162 000231 AS230: STAGAS=STAGAS+1 





CZTRABO MACY11 30( 1046) 
14-DEC-77 12:19 


CZTRAB 
4S36 


a 


. 
a 
45 


3 
S4 

| 

| 


rat th 


es RERERSRRM 


$ 


eager eat 
fs a 


. HED 


838156 


030176 


4540 


14-DEC-77 12:32 PAGE 91 
SUB-TEST ROUTINES 


888881 


027540 
0e7S4e 


027536 
012524 





b3deae 


151206 
151204 


151160 


AS$231: 





MO? 


BYE s8t48: BER" ;SET GO BIT IN COMMAND 
MoV USEB, JTRWC ;SET WORD COUNT 

ISS FEL TRU RS PRES wen 
MOV USEA, aTRER Sey CORT RO REGISTER 


NOP 9 pe ; THI ph ocal 1on rev See? oe A_HALT TO INSPECT 
EQU NT STATUS AM RATION 


TO A_HALT TO INSPECT 
OPERATION 


; THIS ROUTINE PUTS THE CORRECT PARITY ON ALL WORDS IN 
T T BUFFER 


; THE OUTPU 
MOV SOUTPUT , RO ;SET INDEX 
(RO),R1 ;GET THE WORD 
CLR Re 1 OE aR THE COUNTER 
= 
iste RL, - ;TEST R1 LOWER 
; of - ; INCREMENT COUNTER 
ie R ; TEST R1 LOWER 
R1 ;SHIFT RI 
R 8 ‘ :GO BACK TO B 
iors sett *he ;0DD OR EVEN 
Bis (RO) ;SET PARITY 
T $1 
ST (RO)+ 
MP #INPUT, RO jALL DONE 
a ; 
RT PC 
wee w www nn no on nn on oo a nn nn on no no ee = s 
DEROR HANDLING ROUTINE 
—- ti. oor | UP FOR ERROR ~~~ ~~~ ~”—”—”—~C*~C::CERROR~-BIT WAS NN 
HOV 6-1 ERE SET BEROR FLAG , , 
MOV (SP5+,RO ;GET PC 
nov Ro Kec eee IT 
MOV Cop) XSR STORE dh 
TST (SP§ ;FIX THE STACK 





SEQ 0090 


031210 
031152 


1414 


001232 
001232 


cece 


oh 


geaecesccsses 


ps 


044524 





001266 


001266 





NO? 


itis Be seats) bree 7? 1? See ROR HANDLING ROUTINE 


TST VECSTR ; TEST VECTOR FLAG 


ii; CTRX ;RETURN TO VECTOR 
AS234: we 


WRONGX: 
B 174, sue ;TEST SWITCH BIT O04 
ed E CNT, OAAXERR ; TEST DEROR COUNT 
sited ERRCNT INCREMENT COUN 
AS23S: STAGAS=S +1 
eo. bet oc ; TEST LOCATION FOR ERROR 
2 
AS236: $7 TtAGAS+1 
Sper oTMCREE ; TYPE A CARRIAGE RETURN 
CNVRT :OCTAL TO ASCII CONVERT ROUTINE 
HRDATA SPOINTER TO DATA TO PRINT. 
bea drone. SETA TS asc 
NVRT 0 CONVERT ROUTINE 
WROAT2 :DATA O CONVERT BND PRIN 
WRONGY: IN RRCNT 1 ONCREMENT 1 1 OVER ANOMTT 
WRDATA: OR 3 . ;NUMBER OF DATA EFcR8 to 
ee _ ees NUS BT Fons Se"Ba 
XS 
WROAT2: .WORD 3 ;NUMBER OF WORDS TO PRINT 
“BYTE 6,2 ?NUMBER OF CHARACTERS, SPACES 
COR tLOCATION OF DATA 
Coc 
WHED1: .ASCIZ <377>/SUBTEST PC STATUS / 
WHED2: .ASCIZ / CORRECT ACTUAL LOCATION / 
. EVEN 


"SBTTL CORE SIZE ROUTINE 


AND SPACES TO PRINT 


—— + >= 


; ERROR-B 


EE LE) AE 1 Pure 


SegtRehRRRoRURRODInSS 


Paacaatatataca 
VerZInN= 


Secdanennsneonasennennenss 





030732 


030740 162700 000012 


BOS 


; THIS ROUTINE TESTS THE CORE SIZE AND INSURES IT IS OK 


BR CORE 
X=. 
SUB #2,R0 


;SET LAST ADDRESS 
TAD, @CORSIZ ;TEST CORE SIZE 


POP 
BHis 37 
RROR ;ERROR-BIT WAS NOT CORRECT 
AS$237: | +1 
MP Res ; 
CORE: MOV #x,4 ;SET VECTOR 
MOV 80,6 :SET STATUS 
, CLR RO :SET RO TO ZERO 
cs . 
TsTB (RO)+ ; TEST ADDRESS 
A $ CONTINUE 
X=. 
nov #-1, ADDERR ;SET DEROR FLAG 
ADDTST: CLR ADDERR 3c EAR DEROR FLAG 
MOV #x,4 : VECTOR 
MOV #340,6 :SET_ STATUS 
TST (RO) : TEST ADDRESS 
NOP ; DELAY 
RTS PC 
LASTAD: O ;LAST ADDRESS IN CORE 
RODERR: 0 :ADDRESS DEROR FLAG 
VECSTA: 
10R: O ;PRIORITY LEVEL OF INTERRUPT 
TTYTAB: TYPE MTAB 
RTS 
MTAB: .ASCIZ<11> 
. EVEN , 


"SBTTL TTY DECIMAL OUTPUT ROUTINE 


; THIS ROUTINE CONVERTS A OCTAL VALUE _IN THE EXCHANGE REGISTER TO 
;A DECIMAL VALUE AND PRINTS IT AT THE TTY. 


TS PC 
7B 


SUB #1é,R0 ;SUBTRACT 12 





— 


CO8 


CZTRABO MACY11 30(1046) 14-DEC-77 12:32 PAGE 94 
CZTRAB. HED 14-DEC-77 12:19 TTY DECIMAL OUTPUT ROUTINE 
030736 NC CTR ; INCREMENT COUNTER 
000001 150222 TYPTEN: Bre #BITO, ISWR TEST IN speaey? Ps PRINT BIT 
L -(SP) :STORE ST 
= 
030736 LR TR ;SET THE COUNTER TO 000 
AS240 AGAS=STAGAS+1 
000012 a RO, #12 ; TEST EXCHANGE ont el 
000260 ii RO ipRaNCH I Rt or br ety eeee 
MOV RO -tsP) ith THE CODE 
030736 MOV CTR, 
BNE H IF_RO NOT OOO 
THIS ROUTINE PRINTS TTY CODE VIOUSLY PLACED ON THE STACK. 
TYPING A OO C WILL TERMINATE THIS ROUTINE. 
A=. 
TYPSTK: 
=. 
150172 tei @TPCSR 
150166 MOV (SP)+, JTPDBR ; PRINT 
BNE A + NO-CONT INUE 
SAS=. 
150156 eeu aTPCSR 


"SBTTL INTERRUPT VECTOR ROUTINE 
:THIS ROUTINE SETS UP CORE ADDRESSES FROM 0 TO 1000 AND WATCHES 
OR LEGAL IRFLRRUPTS 


ooo002 e Sov «82, Re {PREET 
+ TRCRERENT Re 
+ a T STATUS cet 


BGT 5 ; 

00016 MOV f T TRAP STATUS 

114 900014 HOV avecton 14 ' VECTOR 
ini nov BURONG, 20 SET UP OR VECTOR 
ooo000 VECTOR: TST 9 BeBe ppae “59° 
R 

001000 one (SP), #1000 EST T RESS 

031210 MOV (SP), VECSTR ;STORE VECTOR ADDRESS 


POP2SP 
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CZTRAB. HED 


‘TTT Ts 


SRERERRSER ES 


foe tf 
at bm fee ts Dae ee 


bh 


N Seeeee Boos 


03 
«x 
tx 

a3 

03 
or 

03 

03 


[a 


SULSCULLoSerererRteerretnr nnn 


££te 
wwe 
ee 
Mew 





tu 
he 
tu 


14-DEC-77 12:32 PAGE 95 
INTERRUPT VECTOR ROUTINE 


14-DEC-77 12:19 


030304 
177777 


BSE : 


= 


031326 


a8 
38 


& 

ata 
ter 
rr 


Bg 
es) 


031210 


031210 


164000 


164000 


DO8 


a IMP WRONG ;GET PC AND SR 
AS241: S$TAGAS=STAGAS+ 
ov al, VECSTR ;SET VECSTR TO -1 
VECTRX: 
JSR PC, WRONGX 
CMP #-1. VECSTR ;TEST FOR BREAK POINT 
RG R,RO ;GET ADDRESS 
SUB #6, RO tFIX IT 
A=. 
cu VECSTR CLEAR STORAGE 


R 
AS24e2: STAGAS=STAGAS*1 


VECSTR: O 


"SBTTL INTERRUPT HANDLING ROUTINE 
s THIS ROUTINE HANDLES INTERRUPTS FROM THE EQUIPMENT BEING 
; ¥ 


ENAINT: MOV 
MOV 
MOV 
MOV 
RTs 
CHKINT: CLR 
TST 
BEQ 
ERROR 
AS243: 
DISINT: BIC 
= 
ie 
Ris 
INTFLG: O 
INTIN: I 
us 


#-1, INTFLG -SET INTERRUPT TEST FLAG 

SPuTtnoatayeT moreeT Ge y Cor 

€ OL StRRTS :SET UP vet us 

$100, STRCR sENABLE INTERRUPT 

PS ;CLEAR PROCESSOR PRIORITY 
; DELAY 

INTELG ;TEST INTERRUPT FLAG 


STAGAS=STAGAS+1 


#100, 164000 ;DISABLE INTERRUPT 
INTFLG ;CLEAR INTERRUPT FLAG 
:CLEAR VECTOR FLAG 
» SENG 
PC’ VECTOR 
RS, SETALL 


: INTERRUPT FLAG = O WHEN INTERRUPT OCCURS 


Mpeg RR ERT 


E08 


SET RAB HED acne > ibsia 1? EytERRUPT HANDLING ROUTINE 


i 031344 000002 RTI 


"SBTTL PASS NUMBER ROUTINE 


4 R NE KEEPS TRACK OF THE CURRENT Ae & COUNT AND 
‘OTSPLaYS I? WHE N REQUESTED BY BY THE OPERATOR OR OTHER ROUTINES. 


Az. 
PAST: MOV PAST ;SET EXCHANGE 
13s ADD P RO + aBD SUB TOTAL 





*SBTTL AUTO RESTART ROUTINE 


OORINT: TOTR TOTAL ee pSOMPLETED 
est, 


14 reap) ;STACK THE TEST ADDRESS 
141e 000207 RTS 


Huis eeae Res ea yay eas 


4854 1414 ster SAVE Mov RO, -(SP) 
1438 {Bade MOV Ro’ (SP) 

4857 14 10346 MOV R3,-(5P) 

4 14, MOV RY’ -(SP) 

4 14 RTS RS 

y 

4 14 7 SET: TST (SP)+ 

S 14 13608 MOV (3633, Ry 

486S 14 1 MOV (SP)+)R3 

4866 14 12602 MOV (SP)+/Re 

486 1 12601 MOV (SP)+'°R1 

we68 144, 7 TST (SP)+ ;DONT RESTORE RO 

2 oe iss 


4871 


FOS 


PACYI 20 4-DEC-77 12: PAGE 97 
EST RAB CHED ‘ ret ti 24 3: i8® AVE AND SET REGISTERS ROUTINE SEQ 0096 
ie 
74 
4875 
SETALL: TST (SP)+ 

MOV (SP5+,R4 

MOV (SP)+,R3 

(BP), 

nev (SP)+,R1 

RTS 





"SBTTL PRESET ROUTINE 


; THIS Rout iN IS USED TO PRESET ALL VARIABLES, REGISTERS ECT. PRIOR TO 
;PERFORMING A TEST. 


















031 PRESET: MOV (SP)+,RO ;GET THE RETURN 
Bish Sigoye 071200 a a ey ae 
0314 CLR RB’ ?CLEAR THE RECTSTERS 
031474 CLR RL 
0314 CLR R 
HH aa 
BSI 14772 LR aTkcse ;CLEAR STATUS WORDS 
tk 14747 LR TPCSR 
3 rare tk Ge ae ere 
031 CLR ; CLEAR Siero Tora 
: ess co ee Bae ete om 
B31 a7 cLR Sour CL AR Sut CH OnE ISTER 
10 31 es cLR INTFLG ;CLEAR INTERRUPT ENABLE 
491 1 01 CLR RR ;CLEAR T ROR FLAG 
uai3 Bat Bg 1538 CCR RRCNT iEEAR THE DEROR C 
413 031572 RTS PC 
4915 
agi? on on nner * 
itz ‘SBTTL INPUT - OUTPUT BUFFERS 
4919 1574 o00000 oD0000 T: 
4360 B3té00 T: ;OQUTPUT BUFFER STARTS HERE 
(1) 931600 o9006' 0006' 525.6 ,525 
it NS Bee Bes ge LeGe SURiEenE 
(1) 031740 OO 000525 00065 43 e5e" a Be" bbe, 525, 525/652, 525,652, 525,652, 52S 
(1) 


a 


GO8 


SEQ 0097 





“esc @ eof 8 e8& 8388 8 e 2388 elmlmlmUmRCULUCUCUORUC OrhUmUmUmUmUCUCMCU HU OO FPOlUCOMC HLCM MHUchFOChUC rH hUh FTO HF FhUCUhcrhhlUcr Ch Oh Fh ClClUrhUc UF 
ees se 8 8 8&® £+;+.=#s*s®8 ses s8 «ss se  +es8 88  4es@®#8 8 e888 8 #w©@8 
esses elmlmlmlmlmclclCUmUURUOOUNUCUCCUCUMUMRUCUMURCURMCUCUNUCOC—~<C HCHO HTCUOULUCUCCUCUUCURCURUCUMUMUCUCOCOCUCCMHCURCUCc OrlUCMC HCUh OH UU HC HOC FUhUCOC 
= 
“esc elmlmlmllCUcUHOUOUUMONUCUCCUCUOUURMCURMCUCMOUOUOCOCSCUUCUCUUROCUCOelUlUmUmCCUUMCUCUCURUCUOUCCOCUCURCUCUORMUCUCCUCOCM MHCUUMUMUCOC HU CU 
“esse e888 oe.0UC~C~<«Cz m CLhmUhlClUc CC llUlmlmUULULUCUc OU hh ellUlUmUmUlUlCUC UCU URC HCUCOMUCCUCUOMCURUCURMCcCOrhUCMC HU UCFHmUC FCM HhUh OF BO 
“sce 8#8fe8e0UmUC~«C DHUCUOURUUCUMOOUCCUCUC~CMUUMwURCUCRUCOmUCUCCUCMC HUURUCUMUMUCCUCRCUC HCURCUCOUCCUCCUHURCUCUMUC CUCU HUCUc OOH ——ULUCUc CC 


: 
} 
: 
; 
: 


a 
mR 
. 
z 
E 


7 
w 
i 
er 
ee 
S 
e 


5 
i 
a 
a5 
Be 
aoe 
ae 


a 
064 
734 
bed: Tes 
BO’ Boe’ 
Feu’ See’ 
re 
364 






931° 995° des 
328: 
ee 
Te 


. 
ee ee 
oe 
f ee 
+++ 
7 cs ' 
++ 
' te 
3 
posse Booees ees’ 
r ean: ’ 
' 
+ a 
poese bouees & 
31 


O34e40 Oo0ess O00S8s Oouess be8;S8e 


‘ 
ooo0ses o0006S2 ’ 
nae eSz ’ 

> 
nO ' ‘ F 
3 





Be 


034300 O006Se O00SeS O006Se 652,525 


oe 


033 


BS4O4o 
Bui 


PVG OL OQG QE BOQ |DBRBBPBEODPEBB#®PEE|QERB BERGE OGG AQAA OQQOQ_OQ_OQOOOo9XAQ_Q_ QO OOOO LL 
hen hae Ieee hen hae nee Kom hon hem hem hem nee hee hem hem hen ham ee bem om bee am hoe he leo Jam beam ham ae ham hae Rann hom hea am, kee. Kem, Kem, arm, are Tram, Rear, Nea, Kare Neen Reams Rae Reon, Keen Keon Ran Roe Ree Ron oe en) 
i ee ee ee eh hh hh hh a a ah a 
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14-DEC-77 


CZTRAB.HED 14-DEC-77 12:19 
034340 


REQ LL LOLOL LO LOLOL LLL LL LLL TL fm i im, fm, fm fm, Hm, i. fm, ihm, in, 
bs bb be bb bb be Pb bb hb bb ph ee be oe 
me et et a tt at et it a et et et at at at et et et et at at ae et at et es a et a er es es er 


ror 
Wr 


© 
5 


SREB ENN 
NEB CRE 


SELL LLCCLECOECLC ES 


ttecet 

sane 

BONE 
wg 
wor 


000777 







041770 
041770 


12:32 


HO8 


PAGE 939 
INPUT - OUTPUT BUFFERS 
OG, 506, S68, SES, 608, SES, CEL, SES, OER, SES, O58, SES, OSE, SES, SSE, SES 
si 


’ ’ 5 , ’ , , a ’ ’ o ’ 4 , ° 

’ . a # ° ’ ’ , ’ ’ ’ ’ y , ’ 
OPhane> Oe. SES, GSE, SES, 662, SeS, 652, SES, 652, SeS, G52, Ses, 52, Ses 
7 
ibe > 4 tt 9 2628 s PSs Pers Pees eee ’ 52° PBs: ba’ PRS B52 
1696, 505, 65¢, S69, 65¢, 5e9, 65e, 5€9, EDs DED, ’ 
*P2S' 252 Pes’ ese’ ces’ ese’ ces’ ese’ B52 BBS» BEB, “BSe 
Sve, »S 2G, Se, ih 3 o > z ° 9 a 

9 2e9 1 P26 + Boe o ’ 926235 £ 1638. B58. OBE. BEB 

252" Pes’ eSe’ ’ , 1DED» , , , a ’ 

‘eae’ #24 37 a e , eos * » BBS» B52 BBS» B52 

» ° o ) ’ 8 2 ’ ’ . ’ ’ , 

) 9 ’ ? oO , 1638» BES. BBS » BES 

’ 4 ° 6 a ° ’ ’ o . 

’ »6 f 9 ’ ’ 

a 6 ’ ° ’ ’ 


+ B25" 852° bes’ ese 
Ses ,652,525 B25" B52’ bes Ses 





652, ’ go go 652,525, 652,525,652,52e5,652,52e5 
PeS: 252" PaS: B52: Pes: 252+ Pas: BSe+ Pas: ase’ Pas: ase’ Pas: eSe" Pes: Se 
Cea aprns Ode, SES, BSE, SES, 652, SES, Se, Ses, Bae, SES, Se, Ses, B52, SES 
777,777 777 4777 777 777 777 4 277 277 277 277 777, 277 277 277 PTT 
INPUT: .BLKW 2000 


-THIS UTILITY CALCULATES PRIORITY LEVEL,SETS UP CSR’S,SETS UP VECTORS. 
TRLEV: ASL TRPRT ; BUILD PRIORITY IN THIS LOCATION 

2 ee ae 

ASL TRPRT : SPBNBING 10 T ONDITION CODES 

bee ee eset eate tHe’t xT Cue T PRIORITY 

Kg Lessi s HRSURE T Fhe NZVC BITS ARE CLEAR 
my TRVET eee E ATE PRE REEEIVER INTERRUPT STATUS ADDR 
nev RO, TRRIS CA cEL AT HE : 


; THIS SEGMENT SETS UP POINTERS FOR THE GIVEN TR79. TRBASE IS THE BASE ADDRESS 


:OF THE DEVICE 


SEQ 0098 





I08 


CZTRABO MACY11 ais 44-DEC- -77 12:32 PAGE 100 
CZTRAB. HED : “Fe it 12 INPUT - OUTPUT BUFFERS SEQ 0099 
17 01242 MOV ;COPY THE BASE ADDRESS INTO A SCRATCH T 
17 01402 nov RG, ROOREATS ; XXX0 7 — 
i 001404 nov RO, ,HTRCR 5 XXX1 
| 001406 Hoy RO, ,TRSR ;XXxx2 
aes 001410 nov od ;XXX3 
1 001412 MOV TRWC ;XXX4 
1 TST (RO) + 
1 001416 mov RO, TRBA ; ; XXX6 
1 RTS 
1 TRPRT: LEVEL4 
1 LESS1: LEVEL3 ;LEVEL TO ALLOW INTERRUPTS 
: THIS TING CALCULATES ODD PARITY FOR AN 8 BIT CHAR 
001304 opps: ov RO ;SAVE_TEMP 
CLR j USE Rl vg “CREATE PARITY BIT 
000010 MOV i wee He OF TS oO S A CULATE 
4S: 0 ; THIS oP eue 
- Roe RO : iF ey attr THE fk 
042004 Bee HS a Count. eee CK CKED? 
BNE 1s ; Ck THE NEX? Bry 
Rl fee ad SCALE OF THe UM_INTO THE C BIT 
BCS ; T UP ODD PARITY 
000400 001304 BIS ange: : ETT T8, 000 
000400 001304 2S: IC #6178, TEMP1 sCLR EVEN PARITY 
- TEMP] NOW HAS ODD PARITY CHARACTER 
3S: RTS PC 
- THIS ROUTINE CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER 
001304 EVENB: mov TEMP 1, RO ;SAVE TEMP1 
000010 MOV #8. ,(PC)+ 
4S: 0 
15: ROR RO 
042056 Bee Hs 
BNE 1$ 
ROR R 
1 7) 1 SE N Y 
Os 0 000400 001304 Bis er, TEMP ;SET EVEN PARIT 
4 busibe Bao393 000400 001304 2S: BIC #8178, TEMP R ODD PARITY 
4 si on jiEMPl NOW nes EVEN partty CHARACTER 
4990 bislie TouBa?  OOtSe" TRPREG: in. oe + EV ECE NON-EXISTENT 
4991 O421e4 O00002 RTI ' 


CZTR MACY11 30( )  4-DEC-77 12:32 PAGE 101 
eat . HED 155ee-97 13:19 INPUT - OUTPUT BUFFERS SEQ 0100 
uae5 ; ERROR TABLE 
4633 O4g136 09008 . ERRTAB: 0 ;ERROR 0 BIT ERROR (GENERAL) 
1 0 
1936 el 0 
4 * 1 2 EM1 ;ERROR 1 REGISTER ERROR 
4998 1 13 DH1 
4 O4e1 122 DTl 
142 oie ge EMe ;ERROR 2 CONTROLLER ERROR 
144 Bus 3 DH1 
146 3lee OT1 
508 Oasise oue7i3 EM3 ;ERROR 3 UNIT ERROR 
1 1 DH1 
1s4 le DT1 
ate Bosb00 oe ;ERROR 4 REC FAILED TO INTERRUPT 
ig 1 0 
501 164 240s MTRANF ;ERROR S TRANS FAILED TO INTERRUPT 
S014 196 
5 ons 
1 2172 O4e440 MDATAE ;ERROR & DATA ERROR 
1 174 ous DHe 
176 3 
S0e1 O42200 43005 re ;ERROR 7 DEVICE NON-EXISTENT 
Bess alee of 
2210 oiesea or lle ;ERROR 10 MISC. UNIT ERROR 
221 o4a170 DT4 
ugele Bo5660 MWUNIT ;ERROR 11 INVALID UNIT 
ct sas 
oY pisads te RO ;ERROR 12 AUTOSIZE ERROR 
503 O4ee2e6 043176 OTS 
Ougeae bus067 ao ;ERROR 13 AUTOSIZE ERROR 
5033 10 DT& 
5041 O422 042567 ° SIZER1 ;ERROR 14 AUTOSIZE ERROR 
apis O4ee40 000000 0 
5043 O4ee4e 000000 0 
Re ;ERROR 15 AUTOSIZE ERROR 
sbi RRS Biaias ~~ - 
5047 O4eeSO 000000 0 


KO8 


SEQ 0101 


paOSe RIGS at TgEC“77 12:35 hRSE bb Fur eurreRs 


MACY11 
HED 


at 


AUTOSIZE ERROR 


;ERROR 16 


R3 


ts 
aes 


ae 


@ 
_) 
7 
xz 
ire 


PRIORITY LEVEL WAS: / 


meee TABLES FOR ERROR MESSAGES 





ee 


(3777 


 lldleallaa ania bacdiadind 


wv 








ener sary 
ema Wee 
SSrier yey 


parenn wap 





XPECTED DATA 
XPECTED DATA 


4 


y 
E 
; DEVICE REGISTER 


jdevice REGISTER 
3 

1 ae DATA 

3 

ies 

;ACTUAL DATA 

6 

iP 

SORIT 4 


T 


M sty 
MA 
T 
SAVRY 
YTE 

1 

YTE 

GIS 

BYTE 
SAVLIN 


aol 
.BYT 
.BYT' 
SAVR4 
* B 
TE 

B 
1 


. EVEN 


OT1: 
OTe: 
OT3: 
DT4: 


888 888 88 8 
uuu 


UUs FFFPRu Rados RNa 


AM et eteted  deteteted  etmted 
MOMNMMMMNM MMMMMMM MMMM MMM 


S5S4S84 S554505 S544S 55S 


QROQOQ._ QQ Qx_.Q_OQO&Q_Q_LQ_OQ_OQEO LOO LO LO LOLOL LOLOL LL LL LL LL, lm, lm, Gm, fin, film, fin, in, sin, si, fn, in, fm, 
be hee hee hee hee hee hee hee hee hee hee hee he hem ee hem team ee eae hee am hoon hee hom hem hen been home han kam heen hom hen bee Keen hee hon kk ht he | 
ee tt et et at et et et Net et at Nt Net Bet Nt Nt Nee Set Nat at Bet Bet Sat Nt Net Net eet Set Beet Set Set Net Seat eet Net Net Cet Net Set et et 





LO8 


CZTRABO MACY11 30¢ ) 14-DEC-77 12: PAGE 10 
eS tRAG HED 14-DEC-77 137788 sept - boFpur BUFFERS 
(1) 
(1) 043176 oo0002 DTS: 2 
(1) oos .BYT 6,5 
| (1) 001 Ss VE -EXPECTED DATA 
(1) oo2 . BY 6.2 
(1) 001 SAVEI ;ACTUAL DATA 
(1) 043210 o00001 DTb: 1 
(1) paaete 001 oo2 -BYTE 1,2 
(1) ou 14 001340 SAVEL ;ACTUAL DATA 
(1) 6 CORMAX: 
NL SEQ,LOC,BIN 
;. ERROR 5 YOU EXCEEDED 8K CORE LIMITS. 


SEQ 0103 


MO8 
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CZTRABO MACY11 30( 1046) 
~ZTRAB. HED 


47 
1S41 
1253 
4681 
10238 


- Aber are traces 





—— OBSEBSISS -SaU ITN, QUITO BSI As Ss yor ye 
#28 


= 031352 
70 


ben ben bem bee pen bem bem bee hee bem ben ben ben bebe ben en ben- ban bes bes ben ban bee ben ben ban ban han bee ban ban ben ben ban han ban hon bonbon hon bon ten hon) 


eee eee eee eee ee eetaceeeeceeeeeeTeeeeec ee 


NOS 
| RET RRBO RCV FOC2ONGD EARS" 77 «12:38 Ce REFERENCE TABLE -- USER SYMBOLS 
738 
928 


aa 
<a 


8 
138 
398 

98 
598 


98 
ef 


ee 


= 
= 


>DODODODDOYDYVYOYDYOYVYONMNIXB 
D8 be be bn an Pe Bene pe faa be fs Pe no be Phen Bs De ef fe ee Dee fn 
LY] 


a 
ope DDD DDDDYD YM PD 
v ty tr 4r-4y 4r 4 4 

= 


aoa 


VITZINAS NEATH SNe eowo 


£ 


on 
NOW 





SeER eRe Vets ama Se SOUNCORRANST RS 





te 
4104 
4107 4114 
4125 4132 
4146 uise 

4163 41 
4180 3487 
2310 2317 
i? well usoae 
i yet 
1 4281 4288s 
14 4e91 42988 
1S 4 8 4308 #8 
18 431 43268 
4 43368 
é 23278 
4 43528 
isos 43628 

44478 

ASee4 23" 44656 
ees 4481 44978 





ASee6B 030026 4507 4S098 





| 8 
eo 
8 
st 
m % 
g 
8 
5 
re 
3 
. Hapsaopsadnsess TEATPee neta lesaiaeeeaen che Cane eeR NCTE 
i und Ni vi aaa RRS pentane ee SCOR USN ss 


oN) 


re : Eros REF 


2 

-_ 

; =u gone aaa manou eee eeoree er rR eee oR 
> ~ 

é DDT DOD OF RARTAR TO 
ry jh ph | bt Jie Dien Seen bere foam, nem een pean pam poem Seam pemm ham joan pam pan pan jam pam juan bam pam an pan pan pas pan pan pen bon] oo 





Sp eereiereeneats emma caer cn fFe1 TS 


aka 


CO9 


SEQ 0106 
4538 
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xn 
™ 
w 
tr 
3 : 
; 2 
. " 
; 3 
™ i tj 
2 S59 . 
m™ La] el wa 
“~ @ zr 
Pa i & wo 
a a = & = 
wo n =) x “OO 
cu 
™ Re unm woo wo 
@ > & & & Be : 
> 
w 
4 @ ~ Kw w © nwo oO 
“4 wi we) 
: f 5 EE Re 3 
a al ~ T 
g & & w= fee sae . 
y . 
cal a 
4 = ro- r “Lh. w 
‘ 5 © S SS fea . sg 
: 
oO 


PTECEIG CAUSES gaaUr RRELSRESGeR y RekyeeuRiaag 


19 
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ae eee oieebens tino Sum e career taan EES 


a“ TF 


S026 
5034 
5038 


14-DEC-77 12 






coer 7 oh ie 7 
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ca 
4308 08 
8 
8 
4 
g 
1 
4 & 
1 a 
g 
1 4 
1 1 ® 
14438 81461 
14908 1513 
is4¥ee 1551 
1 1 8 
4 & 
4718 1 
l6e4# 1 
. 
# 


a Tsay 
3 es 


fee See 
is 
Se os 


£7 = 
oy 
se 
Vee £ 
SREMaDEY 
Se 


-_ 


0&6 

HTRCR 1404 S518 dai3s 
HTRSR 1410 SS38 4947 
TCOUNT i232 Gees 

ix AB ed 1978 2beee 

= 

Legs = 06 Se e026 
LCOS = 1012 3818 2026 
LCO6 = 414 r] 

eae =  ] 

LCle = } 

LC14¥ = 8 


q 
INSTER= 104406 S328 


836 
S007 


12388 


2471 
3859 
441 


SOS68 


4410 


3348 


1388 

4S86% 

1189% 
887% 


3313 
7848 


276 


2491 


ib7e 


478S8 


2781" 


2493 
e387 
49els8 


DOS 
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3444 3488 3542 
1436 1441% 1483 


460S5* 4619%  4913# 
1150 1166% 1223% 


25452807 Ba72 


3595 
1488 


3148 


23906 
3911 


4S068 
1535S 


2936 
4000 


1S40* 


2938 
4031 


1576 


662 


e971 
4033 


SEQ 0107 


2266 
3931 


3001 
4065S 


EFTRAB-HED 14-DEC- 


‘ia 8 





spppbbbahhh as 
“8 


28883 

tl Calon) 

444 

ww 
OOOEe 


eeeeece 
2c 


G 
++ 


> 
es 

+ 
se 

> 


au ens 


Daw 
ba 


3 @2222 
333 ae 
ror rr 


r 
m 
7 





a 


) — le: 
12:19 


gee 


is 
W798 
it 


4778 


wo 
wNe 
See *Se kaa 


SERV IB RREE 


$ 


ue 
BSS 


Veo 
DEH 
Re ee 


Bettie as 


ela and all al ed od od a ed ed 
Seeeea ee28 


bo 
~ 
Se 


2 s s & 


Ree 
a3 


: 


we 
z 


Ne 
o 
aE 


EOS 


32_ PAGE 110 


CROSS REF 


640 


12438 


4334 


1 

ERENCE TABLE -- USER SYMBOLS 
651 1264 1509 

4804 448118 4814%  4910% 


49S48 
4615 4630 
904 1156 


88s* 
874% 1134 1136% 1224 


823 915 10S2 1154 1155S 1165S leese lebe 1280 


4350 4360 





SEQ 0108 


4612 


FOS 


111 
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SEQ 0109 


GE 
RE 


:32 PA 
CROSS 


MACY11 30(1 ) 14-DEC-77 12 
HED 14-DEC-77 12:19 


bind 


ow 

w nw 

o o 

wo wo 

- ™m 

i‘ 

w w | 
@ o | 
w w 

_ tas | 

Me 

tu 

0 

w 

— 


~ om 

o uo 

@ wr 

cur 

wn ~ mc 

is : 7k ee 

zr r Tr ur 

{ 8 ae y fe ea rs & 
28. fe 28 PY a 8 > * 


ae ae i Pane: es : 


ARUN MURR UN ENS aN 


kd ad ad ad ad ad md ad hd 








fe eae hes A ot 


GO39 


SE TR RB MEO ROSE RNGS Bt TREC “77 te ae CO REFERENCE TABLE -- USER SYMBOLS 





SMe 
RTB 1 en 
RUNAS O24014 
RUNL 14414 
RUNU 15 

mu 
SAVED 001336 


sonny 


SAUER APR ANS Sees 


642 


6S3 


9958 
836 


699% 
2286 


4854s 
698% 


1266 


1002 
866 


750* 


742 


1611 
1004 


747% 


1006 


765 


892 465S 
1801 4786 
1712 1713 
2023 2061 

40 

1 204 
3915 3916 
4 4403 
A 33495 
eS0O4# 2540 

* % 

4B 

ue oe 
t 3e0R% 
325R8 3788 

970% Seu, 
ones” 4204 
S056 

8S6* 891 

780 SOS6 


4759 


893 


1194 


1196 


SEQ 0110 


1225 
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SAVE1 001340 398" 58h* shee 695 716% 738% 739% 742 744 749% 765 770% 771 
N 1536 1s 
1 4968 1 * 1200 
1 4898 61 x ies 
1 4908 1 * 104 
1 4918 1 x 1044 
vR4 (04 ugaslosae | «104e 
SE Hesas 1B BREE 
= 10441 1138 
sc = 104400 Seve 1395 1443 1490 1542 1587 1632 
SCOP1 = 1 Sees 
ela. tt a warn 
cERO 3 doses 
R Pe a 
. 
437 44038 4408 
jae 1349 ia 2409 2s95 3034 3087 3389 3539 3726 3804 3998 4259 4403 
er AeK = 1 yess uBs5 668 701 752 811 1195 1217 1380 1428 1475 1526 1567 
STAT 001246 4698 
SUBTST 027430 ies. 44038 
1388 4408 $33 601% 611 661 814 875 900 1127 1132 1183 1190 1192 
4 * 1358 1375 1390 1438 148S 1S37 1563 1S78 1584 1627 4601 4706 
G 4318 601 
= 228s 611 
= 2278 1260 
= 2268 
= eee 
= sie 
= 198 
= 188 
= st r 
= 1S8 1190 
= 214s 300 
SW10 = 2138 1192 
SWl1l = eles 
ails = ells 1127 
Sut = 2038 1132 
14 += # 
TABLEL 1575" 14018 
TABL eh £4 14498 
TABLES tea¢ = fdaes 
T 2 ta ieqis 
T 1606 1614 1617 164S#8 
TBA os 3988 





—aagmBeRReRRRREEeREEES kee ¢ e 
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CZTRAB . HED 14-DEC-77 12:19 CROSS REFERENCE TABLE -- USER SYMBOLS 
1 
1 


Tc 001302 4638 1379% 1 383 1384*% 14278 1430 
1 _ 1228 1235 530% 1S566# 1569 1S70 


1 
1 
2159 e2S520%  2Se4# ? 


_ TEMP 12418 1679% 1699% 1841% 
TEMP1 001304 agus 746% 7 769% 787% 793% 795% 
4984" 4986% 4989%  SOS6 
2 0 130€ 4oSe * 1233 
TEMP 901310 wees 
MPY 600131 4878 
NPs 901314 4888 
T 0126 Ss 2597 3156 4476 4S46 
tae 371 i456" 7% 
ues ' 
Tas Oe0ei0 i Beet 
' Le ' 
T 021050 1508 30308 
T 02124 1508 30838 
TAG Oelet & 
TAH 0217 1 14 2588 2649 2708 2773 2838 2900 
TAI Oe 1408 178 
TAK O2ede 14 1s 
TAL Oeeeec 14 Os 3387 3483 
TAM De ot 14 ¥ 
TAN Oe302 141 4 
T Ne 141 8 3537 
T De 340C 141 35368 3590 
T 02360 141 ft 
T De ‘ 36538 
TAT Oe4314 1457 238 
JetScc 1489 1s 
TAY G24S6e 1500 r 
TAW Ge 1501 sye 38578 
TAX OeS2e3t 1310 8 3995 
TAY OeSSOc 1 iy s 4060 
TAZ 025732 154 40598 
TEST ‘ : 1401 16728 
TEST Deb 144 1uB8 4lele 
TESTC O1264E 14 1 1496 «154816948 
restee Seer fee oss," 
TEST 0266 10 1 1 2966 3032 3085 42508 
TESTCX Oeb62iC 414Se 424 4255 4403 
TEST 012760 1451 17228 
T Dee 41948 4Y 4418 
TESTE, O1314€ 4 17788 
TEST D2663¢ 2578 
Test Tee sege = ge" i7938 
TESTO 2530 238] Ati 42678 
TESTFX 427 43168 
fey Bi ios gers 280 
TESTI 1 ior 1449 1497 1591 19248 1975 2035 2115 
TESTJ 014034 14S4 19748 
TESTJ1 014104 1 19898 
TESTK 014270 1455 20348 


2965S 


2181 


1474 
1617 


3246# 
4957 


3031 


3242 


3084 


3724 


32038 


3858 


SEQ 0112 


3925S 


4493 





JOS 
EZTRASO DACV 11 2001048) AM IQEC-77 12:38 eee RENCE TABLE -- USER SYMBOLS SEQ 0113 





TESTL roehe 4399 
TESTM 1 21148 
TESTN 1 171 21528 2242 2344 4451 4513 
TEST 14 154 1888 2isos 2581 3209 3801 
TEST! ssi3e 
T 19 414 253 
TEST 3598 4236 
TESTU 24078 #$+4400 
TESTV 78 pst 4423 
T TH 1 25138 
TESTXX 15 16 43698 4402 
TXY 1283 sabre yee 
TESTY eee r} 
T 4 078 
TK 4448 878 gus 4901% 
TK 44S8 oe? 94 95 4903% 
TPCER ~ ‘Gee «Sie 20951 4725 4730 * 
T 447% 18% * 4 * ¥ gigis gous 4727% 430us 
T SS68 231 91 2494 24 2517% 2523% 2526% 
% 1 3 SB9e gia" 2744 
oaa7 . iz” 581 i § Se 0 
I 1 3 114 3140" 3177 180 3181 
12 1 14 3567 3568 3617 
1 7o3e 787 38 3829 
at dee 4031 4035S 4096 4 
4} sey 447 1% 4S41% 4q % 
4s : 


N 
ae 


9 


perpen Gi 


or 
Bowyer 
; OE RE 
——e 
me 
mee 
Jno 


£ 


MNO Wo 
: 


sty 
Oia 
OW OL 
Re 


adit 
N 
o 


Spouses 


—e 
a 
=~ 
rb be 
OAK 
ae oR 
<= 
UT 
ae 


SS? 
e 
= 


im 





be 
zee 


oa 


Rt Ee 
Brae 
BNR 


Ni 
es 
~ 
<= 
oO 
= 
for 
<= 
Oo 
~ 
uw 


EUW Noe 
a 
Si 
i] 
w 
geese 
| al 
oo 
=U 
HOVE 
1 
SORE 
eter 
N 
* 
ra 





* 
40S 1% 23 Hono 4ius sis site = 4isa G20 4204 4280 4283 
4284 431 4454 4460 4474x 4514 4S20e 452 4524 = 4530 SHG 
478g" 4B4Ls 
CRO 901500 a 13% 
TRLEV 1640 1257 49268 
TREVO 901504 S708 615% 
RPREG ONeTIE 4aage 
TRERT 041766 12568 4926e 4927e 4928% 4929% 4930% 4931 49538 
TRRIS 0014 S98 4788% 4936 


KO9 
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TRSR 


SEQ 0114 


BE ae 
SR TSG 
Reals 
SEES gh oh 


aa oot 


Rha 
Son ow 
SRaeSs 
= aoe 


a 
aa 


es 


ees 


sou 


ar oess an 


suenagentes 


cea 


> 


cum 


ZananeRe 


nna 


Se 


Sea a IE 


001406 


027S46 


TRYIT 


698 717% 724% 744% 747 7S4 757% 


695%" 


x 


3 


qaa4e 


= 


a 
784% 
le 


1228 1269 1275 1277 1374* 1425% 14728 1523% 
1Se8e 1569% 1618% 4623 


7 
1203 
1477 


bE98 

382 

374 
SOS6& 


Bote tare 


td hd 


a 2RaE 


—T- 


ca 

w eal be] x 

£ = gecoregt 

ao _ el =| 
_ unrr 


S  Sepapgaens 


geass i Pucecnaes Fe ialaseis sng 


a ee be ee hee bee hee ee | 


= 
a eins 


2 
b= Fede 
tet 
Sanus 
outs 
OoO0000 « 
“ 
i“ 
e 
wn 
e 


16 
00S 
1 

| TYPEF = 104403 


LOS 
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sete Tere ks ee eC (Sa 

ce ee ame ce Ce 
ec VO a ca a sees (3683 
3329 


411 
Se 3389 3441e 348S* 3539% 3592% 4398 444e 44448 4468# 
3960 


4 
ecsue 13% 
% uet8 4538%  4S44 
4 % 444Be 4S10% 
2eesS*# 2361 3314% 3330% 3346% 3390% 3442% #34686% 3S540% i3593% 4300 4302 
1338 vee 444Se = «444 4470 4511 4540 
44358 YEU ge 1s 
3 Se 1% 3347% 3391# S443 3487 3541 3594 44418 4468 4450 4471 
433g8 ete mid 44 
wate 4y4ys4e 44uosSe 4456 4459 4ySo4ux 452S5% 4526 4529 
fe 
12298 
at 
47S58% 4763% 4767 4769 4773% 47778 =‘4909% 
4 47548 4807 
4594 47658 
33918 2083 2117 3485S 
3 , ae 
i Sabet 2183 
U 4614 le 
U 4618 ry 
D 1061% 1 x 10958 
8 2518 2651 27093 2774 2839 334S 3658 3928 4243 4252 4403 
: : . 4761 


4482 4484 449e% 
4672 46988 4707 


~ 
as 
SE 
— 
i 
N 
[lel 
oe 
2 
3 


rents 
eyeee 


4728 
4738 it 
leess 
ie ¥ 12018 
841 8618 
5678 5718 
S678 5718 
4828 





MO3 
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: it te 47 


Ss 
=—s 
<£ 
=O) 
Ne 
Ss 


j 
} ! 
‘fs, O88 isee8 14 1Mige  1Me¥e M668 ISISH S178 15538 15558 15968 15988 
“FEvono™ 99348 it ig7pe 44> Neve 173 17H 1s258 1 15638 1605 16068 
'SN = 000006 186s 1369-13768 «1417 {359 soars 1464 1467 14748 1515 1518 15258 
STAGAS= 000244 1553, 1358 ie i 1823s , 16s 2013 20218 20v2 2098 20se ose 
i. Het i HEY He . fae Ea Be Bee 2 
S339 Sdaos «Sues «| Baeds , ® . » 5239" = Sca3, Sdu9" P . 
Gr ie oe Ge oe Be Be Gc Be me a Be ge 
r] 378 8 1 178 B20 4 gees 38 
a a an a non a ee 
| 3063, 30788 ® 3102) 3108s ili 1178 120, ieee 15831658 168 
| ai, ae - 3, ee / 32, na’ be, ee Ze 
3 8 8 8 : 8 1 | 
| fi, ar Eh, Sie Gn. Et Bi. er Ge. Be Ge. Bee Bo. 
PER ERE EE Ee eee 
me es. «acha® «ORG, utSe® | sTSSy ide” «so ugede «so 4ies” 4778 4ieO”)«Saeze yas 
WSeae «Watt «6 dbeae «= uea?” Saag 283. d40i" dadee 4aig” «| UAdee 
uence «oueis’ «dese | 4Be? Weaee NEES’ deess «ce? uczoe 6 uees” deeds «eda eas 
Se wees 4609 Yelle 4e5? 4esde W718 4757 47eee 4768 47758 4797 
gy hese boars ‘ize S20 siS22e 0S s« S24w)=Ss«CS2bW 0s S2H 0s S308 )=s« S328 0S S348 40s S368 40S S388 «= SHOR SH2w 
= 043216 Gics «411. —i(‘éwwd@®OONR1® 04268) 9e 0 3ee 0368) gee) S118 0 SéS® 0 S688 S698 
esos «6scote «isin «= 1gegs)«s esse «ss led2s ««1edds «1ed0s «19322180, else e339 abe 
Gees 4 «6268 «| Ge8h hdd a7s8 | 3588 h8G Sd? s48 | 4?a3«3 
prices ele. “Cibe yee? s«4Be9—s«i‘iUBSC«N@37?)—Sss«NS2 1 «SOS 
“CNVRT 004930 543 «10S4e 
“CONVR 004414 S41 10538 
"EOP. 003364 ® 158 1605 
"EROR 04642 1 11278 
“ERRTA O42] 1146 3 
"INST H 
ie 16 Sule 61 
PARAM 1 5 ge5s 
“PFA a1 Sag, «12088 «1216 
ae as 
SC 003544 521 8748 





| NOS 
| ESTRAS HED sacoee—e> 1b:19°”  *”* *EposS REFERENCE TABLE -- USER SYMBOLS 


tee ie ie 
ee aes 
| 


: 
| 


roo 


1 


B10 


E -- MACRO NAMES 


| 
| 
| 


SEQ 0118 


RENCE TABL 


1 


GEO-77 128 HE 


1 


TRAB-HED 19-0EC-97 12: 


g 


BEERDREED 


Reeenaaee? 
caneenannes 
REveeanneeS 
Sidenceees «© SEceaenes 
¢ Ectkacaes «| SMRamanoe 
¢ RRERnano! = Reaiihaiaes 
P SReRRSRaes © SARRRE RCA 
; RGR © CSREES 
Ai SRiGeiasas Fe suantsennes 
SAS Sh 
So SSeGhaaNes SencnccateMes? 
SRiPAENRSERES SokoRnReenaAnSe 


SES saReuuacey 
r 


rg 
wUMms cucu 


Oo oo CULT. - o 
Rags BERT eons 


pbags RECEDES 
r 


977 
1 
35 
4 
2094 

3 
5039 
3298 
3819 
4039 
4308 
4595 
1625 


Rees eee 


ez SF BOR Roe DO 
Ratz dutinne Busco 


4298 
4574 
1576 


4288 
4570 
1535 


4234 
4565S 
1483 


4224 
4535 
1436 


™m @ 
n & 
re 


: 


ES SS RS es ee 


oaks Ets ee 
Se aHb54 Reece tye é 
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| ; 
| PREEND 5 
| 
| He # 4 
PRINTM a 
ADY . 4723 Eres 


a 
= 
ee 
ng 
= 
wi 
ES 
re 
en 28 
a 
3 ® 
pee 
pena 
oaaae 
agahe 
ats 
Seee 


SERED 
a8 
MY 
@ 


Rg 





a i & go Sh a se SF Se He ue ae 
worm “Sle ee Be RS = a fe t a a 


TBGL 1s 

TBUSY le 3321 

TEOF 1s 

TEOT le §=63145 3310 3319 44680 

Tre is ieve fer? fe64 1703 

TICMD ls 

TIOB ls 

al lt 

TINH is 2515 2es92 2711 2776 2841 4467 4537 
TINT le 1779 1780 17933 1795 

TLOP 1s § 1935 342 

TMTE 1s 

TNXM 1s 

TOL ls 1852 2152 2157 2221 3250 
TPCLR 1s 1810 1816 1839 1846 2233 2289 
TRCRDY ls § 1663 3325S 

TROCNT 1s 

Thus is 

T 1# §=1933 2340 

TSTE 1s 

TTROY eT 456 1705S 3323 

TUREO 1s 71 

TURE 1 1s 86277 

TWPE 1s 

TYPLET 1s 
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| CZTRAB.HED 14-DEC-77 12:19 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0120 | 
Bae ons 
fete (BRE 
1s 
18 
is 1 
hike 
AY Z 2274 2291 2654 2716 2781 2845 
ee ee a ee 
SOPOIN e 
SEOP * 826 
SERTAB # 4992 
SFINI ® SOS6 
SHEADE ° 18 639 6S1 1264 1609 
RPS s 1 1963 2010 2021 2049 3 2128 2138 2164 2170 2194 


 ——" 
EBPAL TES 


St wg 


ae 
: 
RE 


<i 
pe Ratchet 
Pra eae Et 
Seat erat 


# 3e8 358 
3014 8 pL 4084 4104 4114 3933 
4i 4ig 4yeou 4 4336 4362 4453 
NTER ig 4509 4Se3 4S35 4565 4S$70 4S74 4ogs 4611 4659 4711 4762 uy 
nn 
simu 
Srrese 4d" 13)2 4685 «7DR«CAZAG:«CAZEE:«| OASIS «SRY «APGT:«««ASRS «BREGUET: ze 
la | 4051 4520 
| 
1 
1 
1 
a at i 1204 
souest = ko 
series i 1840 956 2013 20S2 2087 2097 2lel 2131 2158 2166 2187 2197 
sees" cée8 © £300 ee Te 
5068 90 2800 s8ig uy Ss 87 7 rt He 
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